A2 ve b2 satırlarından başlaması

[abbasonline]

Sub SAYILARI_LİSTELE()
Dim X As Long, Y As Byte, Satır As Long

Application.ScreenUpdating = False

Sheets("DUMANLI HAVA").Select
Range("A:B").ClearContents

With Sheets("2011")

For X = 3 To .Range("G65536").End(3).Row
For Y = 63 To 78 Step 2
If .Cells(X, Y) <> "" Or .Cells(X, Y + 1) <> "" Then
If .Cells(X, Y) <> .Cells(X, Y + 1) Then
Satır = Satır + 1
Cells(Satır, "B") = .Cells(X, "G")
Cells(Satır, "A") = .Cells(X, "C")
End If
End If
Next
Next

End With

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub




BU MAKRONUN DUMANLI HAVA SAYFASINDA SAYILARI LİSTELERKEN A2 VE B2 SATIRLARINDAN BAŞLAMASI İÇİN NASIL BİR DÜZENLEME YAPMAMIZ GEREKLİ.

 

[Korhan Ayhan]

Selamlar,

Range("A:B").ClearContents kod satırının bir altına aşağıdaki satırı ekleyin.

Satır = 1

 

[abbasonline]

sağolun Korhan bey kodlar kendime uyarladığım sizin kodlarınız. Teşekkürler.