Verilerin sütundaki boş hücrelere makroyla serpiştirilmesi

[baydeniro]

Merhaba Arkadaşlar,

F sütununda bulunan verilerin B sütunundaki boş hücrelere makroyla serpiştirilmesi mümkün mü ?

Örnek dosya linki : http://s8.dosya.tc/server5/kn6zow/__BOS_HUCRELERE_VERILERI_SERPISTIR.xls.html

 

[halit3]

kod:

Sub Makro3()

son = Cells(Rows.Count, "B").End(3).Row
sat = 2
For i = 2 To son + 1
If Cells(i, "b").Value = "" Then
Cells(i, "B").Value = Cells(sat, "f").Value
sat = sat + 1
End If
Next i

MsgBox " Düzenleme Tamanlanmıştır..."

End Sub

 

[baydeniro]

halit3 üstadım Allah razı olsun, mükemmel olmuş. Sağlıcakla kalın.

 

[4yaKuza]

Bunları rastgele nasıl ekleyebiliriz ? sırayla ekliyor ya rastgele eklesin istiyorum mesela