ekli dosyada aktardığım verileri a3 sutunundan değilde b3 sutunundan itibaren yapıştırıyor
ben a sutununa otomatik numara vermesini istemiyorum ve verilerin ilgili kısımlara yapışmasını istiyorum
kodu:
Sub taşı()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("personeller")
For a = 3 To 65000
If s2.Cells(a, 1) = Empty Then GoTo 2
Next
2
For b = 1 To 155
s2.Cells(a, b + 1) = s1.Cells(b + 1, 3)
Next
s2.Cells(a, 1) = a - 2
MsgBox "taşındı"
End Sub
kodu nasıl değiştirmem lazım
ben a sutununa otomatik numara vermesini istemiyorum ve verilerin ilgili kısımlara yapışmasını istiyorum
kodu:
Sub taşı()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("personeller")
For a = 3 To 65000
If s2.Cells(a, 1) = Empty Then GoTo 2
Next
2
For b = 1 To 155
s2.Cells(a, b + 1) = s1.Cells(b + 1, 3)
Next
s2.Cells(a, 1) = a - 2
MsgBox "taşındı"
End Sub
kodu nasıl değiştirmem lazım