Formül Kopyalama

[excelman]

Merhabalar;

G4 hücresine yazmış olduğum formülü yine G sütunun dolu olan son

satırına kopyalamak istiyorum ama başaramadım.

Yardımcı olursanız sevinirim.[/b]

 

[isakarakus]

anladığım kadarıyla makro ile yapılması gerekli,
peki formul çoğaltılacakmı yoksa aynı formul mü girilecek.

 

[excelman]

G4 hücresindeki formulde H4 den F4 ü çıkartıyorum.Bu formulu en son

satıra kadar kopyalamak istiyorum.

 

[maverick6]

daha ayrıntılı bilgi verebilirmisin ve örnek bir dosya yükleyin öyle bakalım

 

[Haluk]

[vb:1:aaaec80031]Sub Test()
Dim NoG As Long
NoG = Range("G65536").End(xlUp).Row
Range("G4").AutoFill Destination:=Range("G4:G" & NoG - 1)
End Sub
[/vb:1:aaaec80031]

 

[isakarakus]

'Biraz beç oldu ama, (bilgisayarı kıracam şimdi :kafa: )

[vb:1:54e83e0323]Range("G4").Copy
'en son dolu satıra
Range([G65536].End(xlUp).Address).PasteSpecial xlPasteFormulas

'en boş dolu satıra
Range([G65536].End(xlUp).Offset(1, 0).Address).PasteSpecial xlPasteFormulas[/vb:1:54e83e0323]

 

[isakarakus]

'Biraz beç oldu ama, (bilgisayarı kıracam şimdi :kafa: )

[vb:1:e7d9d9cbeb]Range("G4").Copy
'en son dolu satıra
Range([G65536].End(xlUp).Address).PasteSpecial xlPasteFormulas

'en boş dolu satıra
Range([G65536].End(xlUp).Offset(1, 0).Address).PasteSpecial xlPasteFormulas[/vb:1:e7d9d9cbeb]

 

[isakarakus]

:? iki mesaj göndermedim ki!! :shock:

 

[TRABLUS]

...

 

[excelman]

Sayın Raider in göndermiş olduğu formül istediğim işi görüyor fakat

en son satırdan bır önceki satıra kadar kopyalama yapıyor.Yani 65535.satıra kadar

kopyalıyor.Benim istediğim G sütunun da son dolu satır mesela G512, formül bu

son satıra kadar kopyalanmalı.(Son satır değişken)


Teşekkürler.

 

[Haluk]

Ã?nerdiğim kod, sizin istediğiniz işi yapar.

Sanırım, siz bir şeyi yanlış yapıyorsunuz ....

Kodu çalıştırdığınızda, aktif sayfa sizin bu formulün olduğu sayfa olmalı.

Ayrıca, bahsettiğiniz G512 hücresinde ne var ?

 

[Haluk]

Haa.... problemi anladım sanırım....

Büyük ihtimalle sizin bahsettiğiniz G65535 hücresinde bir şeyler vardır ki ..... formul veya bir veri olabilir, hatta hücrenin içindeki bir boşluk bile olsa, o zaman benim önerdiğim kod o hücreyi de dolu kabul eder.

Bunu öncelikle bir kontrol edin.....

Duruma göre başka çözümler gerekebilir...

 

[isakarakus]

sn @excelman siz dosya gönderseydiniz daha çabuk sonuca ulaşılabilirdi.

bari ben küçücük örnek dosya göndereyim

 

[excelman]

Dosya gönderiyorum.

 

[zafer]

Merhaba

Formüllerde herhangi bir şey tablonuza göre yok.

Sayın raider'in ve Sayın İsakarakus'un makroları işi görüyor.

 

[isakarakus]

merhaba,
h sutunun en son satırına dikkat et, daha altlarda bir satır daha vardı sildim.

 

[Haluk]

G4 hücresine yazmış olduğum formülü yine G sütunun dolu olan son .....

Demiştiniz......

Ancak kodu , gönderdiğiniz örnek dosyaya göre H sütununun dolu olan en son hücresine göre .... diye düzenlemek gerekiyor.

Bu durumda, kullanacağınız kod:

[vb:1:af7cf894b8]Sub Test()
Dim NoH As Long
NoH = Range("H65536").End(xlUp).Row
Range("G4").AutoFill Destination:=Range("G4:G" & NoH)
End Sub
[/vb:1:af7cf894b8]

 

[excelman]

Küçük bir ayrıntı yüzünden sizleri uğraştırdığım için özür dilerim.

İlgilenen herkese teşekkür ederim.Sorun çözüldü.