Sirket Isimlerini Yazdirma

[mustafaine1]

Arkadaslar en sagdaki gri satirlara 3 satirdaki sirket isimlerinin otomatik yazimlasini istiyorum, manuel hali ustteki fotograftakidir, dosya ektedir, saygilar..

 

[mustafaine1]

Fikri olan yok mu

 

[mustafaine1]

Selamlar, a sutunu tarih ise ve c sunutunu NAKLI YEKUN degil ise h satiri ustten hesap adini bulucak..

 

[Levent Menteşoğlu]

Mustafa bey, sayfanın kod modülüne aşağıdaki kodu ekleyerek denermisiniz. C sütunundaki firma isimlerine çift tıkladığınızda çalışacaktır. Kodun doğru çalışması için tablolarınızın aynı yapıda olması gerekir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Offset(0, -2) <> "HESAP KODU:" Then Exit Sub
Cancel = True
deger = Target
ilk = Target.End(xlDown).Offset(2, 0).Row
son = Cells(ilk, Target.Column).End(xlDown).Offset(-1, 0).Row
Range("H" & ilk & ":H" & son) = deger
End Sub

 

[mustafaine1]

Hocam cok guzel olmus fakat nakli yekun olan kisma getirmeyebilirmiyiz..

ilk = Target.End(xlDown).Offset(2, 0).Row`u 3 yapinca sanirim oyle degil mi?

 

[mustafaine1]

getirdik oyle Tesekkur ederim, kolay gelsin..