Tek hücreden veri kopyala Sonraki sütunda ilk boş hücreye yapıştır.

[dgdizayn]

Merhabalar,
Talebim ile ilgili bir çok araştırma yaptım fakat çok basit birşey ama bulamadım, yardımcı olabilirseniz çok sevinirim.

BK3 hücresinden kes, AN sütununda en dolu hücreden sonraki boş hücreye #,##0,00 formatında yapıştır.

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,
Deneyiniz.

Sub KesYaz()

    Dim SonSat As Long
    
    SonSat = Cells(Rows.Count, "AN").End(3).Row + 1
    
    Range("BK3").Cut Range("AN" & SonSat)
    Range("AN" & SonSat).NumberFormat = "#,##0.00"
    
End Sub

 

[dgdizayn]

Merhaba,
Deneyiniz.

Sub KesYaz()

    Dim SonSat As Long
   
    SonSat = Cells(Rows.Count, "AN").End(3).Row + 1
   
    Range("BK3").Cut Range("AN" & SonSat)
    Range("AN" & SonSat).NumberFormat = "#,##0.00"
   
End Sub

Sn. Necdet Bey,

Emeklerinize sağlık teşekkür ederim. Burada ufak bir ayrıntı kaçırmışım, bunu normal yapıştır değilde sayı formatında yapıştırsın yani formül görünmesin. Bu konuda yardımcı olabilir misiniz.

Teşekkürler.

 

[Necdet]

Merhaba,

BK3 hücresinde formül var mı diyorsunuz?

Sub KesYaz()

    Dim SonSat As Long
    
    SonSat = Cells(Rows.Count, "AN").End(3).Row + 1
    
    Range("BK3").Cut Range("AN" & SonSat)
    With Range("AN" & SonSat)
        .Copy
        .PasteSpecial Paste:=xlPasteValues
        .NumberFormat = "#,##0.00"
    End With
    
End Sub

 

[dgdizayn]

Necdet Bey,

Aynen öyle BK3 hücresinde formül var. Sadece bunu value formatında yapıştırsın ve sadece sayısal değeri gelsin, formül gelmesin istiyorum.

 

[Necdet]

Merhaba,
4 nolu mesajda kodları verdim, deneyiniz.

 

[dgdizayn]

Merhaba,
4 nolu mesajda kodları verdim, deneyiniz.

Necdet Bey merhaba,

Kovid nedeniyle bir süre rahatsızdım cevap veremedim. İlginize ve emeğinize teşekkür ederim.

 

[Necdet]

Necdet Bey merhaba,

Kovid nedeniyle bir süre rahatsızdım cevap veremedim. İlginize ve emeğinize teşekkür ederim.

Geçmiş olsun, önemli olan sağlık.