Makro Kaydetme yardım ricası

[uygaroz]

Menülerden
Geliştirici
Makro Kaydet seçerek

Makro Kaydet ile formulleri L4 ve M5 hücrelerine giriyorum.

Makro çalıştırdığımda ise formuller sadece bu hücrelere kopyalanıyor.

Makronun L4:L9000
ve M4:M9000
arasında calısması için ne yapılması gerekiyor.
Yani C6 hücresi dolu olduğunda L6 ve M6 da formuller calıssın
C6 hücresi bos ise formüller çalışmasın..

tesekkurler
Uygar

 

[catalinastrap]

sanırım bu sorununuzu çözer

 

[uygaroz]

yardım için çok tesekkur ederim...
Uygar

 

[bedri41]

Sn. Uygar,

Formulleri 9000 satır uzatmak için aşağıdaki kodları kullanın

Sub DokuzBinSatir()
    Range("L4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""","""",RC[-6]+RC[-3])"
    Range("M4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-10]="""","""",RC[-7]+RC[-5])"
    Range("L4:M4").AutoFill Destination:=Range("L4:M9000"), Type:=xlFillDefault
End Sub

Yok ne gerek var 9000 satır dosyamı şişireyim, ihtiyacım olan kadar çoğaltayım dersenizde aşağıdaki kodları kullanın

Sub AsutunuSonDoluSatir()
    Range("L4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-9]="""","""",RC[-6]+RC[-3])"
    Range("M4").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-10]="""","""",RC[-7]+RC[-5])"
    Range("L4:M4").AutoFill Destination:=Range("L4:M9000" & [A65536].End(3).Row), Type:=xlFillDefault
End Sub

Kolay Gelsin

 

[uygaroz]

Bedri Bey
kod icin cok tesekkur ederim
Uygar