kolandaki değere göre kopyalama

[mosmos2009]

Merhabalar

ek'li dosyamda satır cok fazla olduğundan ve hergün bukadar satırla uğrastığımdan cok vaktimi almakta kopyalama islemi yapamadım bunu formül,makro yada vısual basıcta kodlarla kopyalanabilirmi yardımlarınız icin simdiden coooooook tsk ederim,

 

[mosmos2009]

varmı cevaplayabilecek arkadaslar

 

[Husgvarna]

varmı cevaplayabilecek arkadaslar

Aşağıdaki kodda bulunan kırmızı bölümü en sondaki "No" (863) için kaç satır
yazdırılacaksa ona göre değiştirin.

Private Sub CommandButton1_Click()
For a = 2 To Cells(65000, 1).End(xlUp).Row + [COLOR="Red"]10[/COLOR]
If Cells(a, 11) <> "" Then b = Cells(a, 11)
If Cells(a, 11) = "" Then Cells(a, 11) = b
Next
End Sub

Eki inceleyin.

 

[mosmos2009]

üstad eline sağlık