DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
iki tane için bu kodu deneyebilirsin. artırmak istersen 2 yerine istediğin kadar sayı yazabilirsin.Sub iban()
For i = 1 To 2
Cells(23 * i - 13, 2) = Cells(23 * i - 2, 1)
Next
End Sub
bu kodu deneyebilirsizSub iban()
For i = 1 To 2
Cells(23 * i - 13, 2) = Cells(23 * i - 2, 1)
Next i
For j = [a65536].End(3).Row To 1 Step -1
If Cells(j, 2) = "" Then Rows(j).Delete
Next j
End Sub
Merhaba,
2 değilde 4 farklı veri ekleyerek dosyanızı tekrar eklermisiniz.
.
eğer satıcı kodu ve baka adını silmek istiyorsanız
bu kodu deneyebilirsiz
Satıcının adından 23 satır sonra Başka satıcı adı geliyor.