Merhabalar. Uzunca uğraştım ama olmadı.
Range("A1").Select
ActiveSheet.Next.Select
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("WMK1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Formülde yukarı tarafta problem yok.
Problem aşağıdaki kısımda.
WMK1 Sütunundaki veriler dolu olan AC sütununa değil bir sonraki boş sütun olan AD sütununa yapıştırılsın istiyorum.
Her seferinde ise kopyaladığında bir sonraki boş sütuna veri yapıştırsın istiyorum.
Aşağıdaki gibi olunca malesef hep AC ye yapıştırıyor.
Şimdiden teşekkürler.
Range("AC").Select
Selection.End(xlToLeft).Select
Range("AC").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Range("A1").Select
ActiveSheet.Next.Select
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("WMK1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Formülde yukarı tarafta problem yok.
Problem aşağıdaki kısımda.
WMK1 Sütunundaki veriler dolu olan AC sütununa değil bir sonraki boş sütun olan AD sütununa yapıştırılsın istiyorum.
Her seferinde ise kopyaladığında bir sonraki boş sütuna veri yapıştırsın istiyorum.
Aşağıdaki gibi olunca malesef hep AC ye yapıştırıyor.
Şimdiden teşekkürler.
Range("AC").Select
Selection.End(xlToLeft).Select
Range("AC").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop