M3 hücresindeki formülü veri kümesinin sonuna kadar çekmeye çalışıyorum.
Veri içeren son hücreyi belirlemek için L sütununu temel olarak kullanıyorum. Formülüm, aralarında bir metin virgülü bulunan iki hücrenin birleştirilmesinden oluşuyor.
Formülüm =G3&","&L3
Excel'in bu formülü şu şekilde çizmesini istiyorum
M4 hücresi =G4&","&L4 şeklinde olacaktır M5 hücresi =G5&","&L5 ve bu şekilde devam eder.
Benim kodum:
Range("$M$3").Formula = Range("G3") & (",") & Range("L3")
Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("M4").FormulaR1C1 = Range("G4") & (",") & Range("L4")
Range("M4").AutoFill Destination:=Range("M4:M" & Lastrow)
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
Çıktım, M3 hücresinden veri kümesinin sonuna kadar metin değerlerini aşağı çekiyor. Birkaç saat boyunca bir düzeltme aramaya çalıştım, ancak istediğim şeyi gerçekleştirmeye çalışan bir tane bulamadım.
Benzer bir sorusu olan ve bu yazıyı bulan insanlar için (benim yaptığım gibi); veri kümeniz tablo olarak biçimlendirilmişse bunu lastrow olmadan da yapabilirsiniz.
Range("tablename[columnname]").Formula = "=G3&"",""&L3"
Bu da onu gerçek bir one liner yapıyor. Umarım birilerine yardımcı olur!