Soru Formülü son dolu satıra kadar kopyalama?

[s.savas]

Merhaba arkadaşlar.
=EĞER(D5="";"";DÜŞEYARA(D5;Devamsızlık_Formu!B8:AI32;34;0))
Formülünü makro kaydet yöntemi ile aşağıdaki kodu elde ettim.
Bordro isimli şablonumda B5 hücresine bakıp son dolu satıra kadar F5 hücresine bu formülü işlemesini istiyorum.

Sub Makro3()
'
' Makro3 Makro
'

'
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(RC[-2],Devamsızlık_Formu!R[3]C[-4]:R[27]C[29],34,0))"
    Range("F5").Select
    Selection.AutoFill Destination:=Range("F5:F29")
    Range("F5:F29").Select
End Sub

 

[Mr.MKA]

Aşağıdaki Kodu denermisin;

Sub Makro3()
'
' Makro3 Makro
'

'
    Dim i As Long
    Sheets("Bordro").Select
    i = WorksheetFunction.CountA(Range("C5:C65536"))
    
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(RC[-2],Devamsızlık_Formu!R[3]C[-4]:R[27]C[29],34,0))"
    Range("F5").Select
    Selection.Copy
    Range("F6:F" & i).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

 

[s.savas]

Aşağıdaki Kodu denermisin;

Sub Makro3()
'
' Makro3 Makro
'

'
    Dim i As Long
    Sheets("Bordro").Select
    i = WorksheetFunction.CountA(Range("C5:C65536"))
  
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(RC[-2],Devamsızlık_Formu!R[3]C[-4]:R[27]C[29],34,0))"
    Range("F5").Select
    Selection.Copy
    Range("F6:F" & i).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Makroyu D, E, F ve G sütunlarının tamamına ve en son satır olan 65536ya kadar yazdı.
Olması gereken ise sadece F sütununa son dolu satıra kadar olması gerekiyor.

 

[Mr.MKA]

F5 hücresinin altındaki birleşmiş hücreleri kaldırıp dener misin?

 

[s.savas]

F5 hücresinin altındaki birleşmiş hücreleri kaldırıp dener misin?

Yazdı fakat alttan 3 adet hücreyi boş bıraktı.

 

[Mr.MKA]

i = WorksheetFunction.CountA(Range("C5:C65536"))

Yukardaki Kodu aşağıdaki ile değiştirirmisin

i = WorksheetFunction.CountA(Range("C5:C65536")) + 4

 

[Ömer BARAN]

Merhaba.
Alternatif olsun.

Kullandığınız Makro3 isimli makroyu aşağıdakiyle değiştirerek deneyiniz.
Son satır tespiti B sütunundaki en yüksek sayı değerine göre yapılır.

Sub Makro3()
    [F5].Formula = "=IF(D5="""","""",VLOOKUP(D5,Devamsızlık_Formu!$B$8:$AI$32,34,0))"
    [F5].AutoFill Destination:=Range("F5:F" & WorksheetFunction.Max([B:B]) + 4)
End Sub

 

[s.savas]

Merhaba.
Alternatif olsun.

Kullandığınız Makro3 isimli makroyu aşağıdakiyle değiştirerek deneyiniz.
Son satır tespiti B sütunundaki en yüksek sayı değerine göre yapılır.

Sub Makro3()
    [F5].Formula = "=IF(D5="""","""",VLOOKUP(D5,Devamsızlık_Formu!$B$8:$AI$32,34,0))"
    [F5].AutoFill Destination:=Range("F5:F" & WorksheetFunction.Max([B:B]) + 4)
End Sub

Teşekküler üstadım.
Bordro şablonunda iken makroyu çalıştır yapınca; makro çalışıyor, sorun yok.
Ancak aynı kodu userform'dan çalıştırınca aşağıdaki hatayı veriyor.

 

[Ömer BARAN]

Belgenizde çok sayıda userform ve modul mevcut.
Hangi userform, hangi commandbutton kullanılıyor, net ifade ederseniz bakayım.

 

[s.savas]

Belgenizde çok sayıda userform ve modul mevcut.
Hangi userform, hangi commandbutton kullanılıyor, net ifade ederseniz bakayım.

userform6 combobox2 ile rapor alıyorum üstadım.

 

[Ömer BARAN]

Belirttiğiniz Combobox ile Bordro sayfasına formül uygulayan makronun bağlantısını göremedim.
UserForm açılma denemesi yaptığımda da veri tabanına bağlantı kurulamadığı için form açılamıyor.
En iyisi; verdiğim kod'a sayfa isimlerini ekleyerek deneyin.

    Sheets("Bordro").[F5].Formula = "=IF(D5="""","""",VLOOKUP(D5,Devamsızlık_Formu!$B$8:$AI$32,34,0))"
    Sheets("Bordro").[F5].AutoFill Destination:=Sheets("Bordro").Range("F5:F" & WorksheetFunction.Max(Sheets("Bordro").[B:B]) + 4)

 

[s.savas]

Belirttiğiniz Combobox ile Bordro sayfasına formül uygulayan makronun bağlantısını göremedim.
UserForm açılma denemesi yaptığımda da veri tabanına bağlantı kurulamadığı için form açılamıyor.
En iyisi; verdiğim kod'a sayfa isimlerini ekleyerek deneyin.

    Sheets("Bordro").[F5].Formula = "=IF(D5="""","""",VLOOKUP(D5,Devamsızlık_Formu!$B$8:$AI$32,34,0))"
    Sheets("Bordro").[F5].AutoFill Destination:=Sheets("Bordro").Range("F5:F" & WorksheetFunction.Max(Sheets("Bordro").[B:B]) + 4)

Teşekkür ederim üstat, şimdi sorunsuz.

 

[Ömer BARAN]

Teşekkür ederim üstat, şimdi sorunsuz.

Kolay gelsin.