koşula bağlı olarak ilk boş satıra veri yazdırmak

[senkron2010]

koşula bağlı olarak tablonun altındaki ilk boş satıra veri yazdırmak istiyorum. dosya ektedir.

 

[Huseyinkis]

koşula bağlı olarak tablonun altındaki ilk boş satıra veri yazdırmak istiyorum. dosya ektedir.

Ekteki formulu denermisiniz.

Sub Aktar()
Application.ScreenUpdating = False
For i = 2 To Range("O65536").End(3).Row
If IsNumeric(Cells(i, "O").Value) Then
Sonsat = Range("B65536").End(3).Row + 1
Range("B" & i & ":L" & i).Select
Selection.Copy
Cells(Sonsat, "B").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(Sonsat, "J").Value = Cells(i, "O").Value
End If
Next
Application.ScreenUpdating = True
End Sub

 

[senkron2010]

çözüm için teşekkürler. m sütununa değer girdiğimde makronun otomatik olarak çalışmasını istiyorum

 

[Huseyinkis]

çözüm için teşekkürler. m sütununa değer girdiğimde makronun otomatik olarak çalışmasını istiyorum

Ekteki dosyada hazırlanmıştır.

 

[suskungece]

benimde buna benzer bir sorunum var ama sanırım tam olarak ifade edemediğim için cevap alamadım
arkadaşların bu konuya verdiği cevaplardan yararlanmaya çalıştım ama sanırım kod bilgim olmadığı için beceremedim yardımcı olacak arkadaşlar varsa sanırım burası dogru konu bende sorunumu buradan tekrar sormak istiyorum