Dolu Satıra Göre Formül Çoğaltma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub FormulCogalt()
Dim ws As Worksheet
Dim lastRow As Long
Dim formulu As String
Dim hedefSutun As String
' Çalışma sayfasını belirle
Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adını güncelleyin
' Dolu olan son satırı bul (A sütununa göre)
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Çoğaltmak istediğiniz formülün olduğu hücreyi belirleyin (Örneğin B2)
formulu = ws.Range("B2").Formula ' Formülün olduğu hücreyi güncelleyin
' Formülü hangi sütuna çoğaltmak istediğinizi belirleyin (Örneğin B sütunu)
hedefSutun = "B"
' Formülü dolu olan son satıra kadar çoğalt
ws.Range(hedefSutun & "2:" & hedefSutun & lastRow).Formula = formulu
End SubAçıklama
- ws.Cells(ws.Rows.Count, "A").End(xlUp).Row: A sütunundaki dolu olan son satırın numarasını bulur. Başka bir sütuna göre işlem yapmak istiyorsanız, "A" kısmını değiştirin.
- ws.Range("B2").Formula: Bu formülle çoğaltmak istediğiniz hücredeki formülü alır. Örneğin, "B2" hücresinde bulunan formülü çoğaltmak için.
- ws.Range(hedefSutun & "2:" & hedefSutun & lastRow).Formula = formulu: B sütununda, 2. satırdan başlayarak son dolu satıra kadar olan hücrelere formülü kopyalar.
Kullanım
- Excel VBA Editor (Alt + F11) penceresini açın.
- Yeni bir modül ekleyin.
- Yukarıdaki kodu bu modüle yapıştırın.
- FormulCogalt makrosunu çalıştırın.
