
Marco Rodrigue
New Member
Members

Forum Posts: 1
Member Since:
June 17, 2021
June 17, 2021

Hi Guys,
I made this macro but is not working properly
I want if in cell (x,x) the number of characters is lower than 7 and cell (y,y) have the leather T
Then copy cell (z,z)...
This is the code I wrote:
Dim x As Integer
Dim nRows As Integer
nRows = Cells(Rows.Count, 1).End(xlUp).Row
For x = 6 To nRows
If Cells(x, 11) <> 0 And Cells(x, 10) <> 0 Then
If (Len(Cells(x, 11)) <= 7 And Cells(x, 10) = "T") Then
Else
Cells(x, 11).Copy
Cells(x, 24).Select
ActiveSheet.Paste
End If
End If
Next x
End Sub
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online:
Guest(s) 8
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 873
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 222
Jessica Stewart: 215
A.Maurizio: 202
Aye Mu: 201
jaryszek: 183
Newest Members:
Anthony van Riessen
Erlinda Eloriaga
Abisola Ogundele
MARTYN STERRY
Rahim Lakhani
Ngoc Qui Nguyen
Clement Mansfield
Rose .
Bindu Menon
Baruch Zemer
Forum Stats:
Groups: 3
Forums: 24
Topics: 6352
Posts: 27779
Member Stats:
Guest Posters: 49
Members: 32319
Moderators: 3
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: MOTH Support, Velouria, Riny van Eekelen
© Simple:Press —
