CommandButton ile hücrelerin formül yerine sayı biçimi(sss.sss,ss)gibi aktarma

[vitaminb1]

Private Sub CommandButton3_Click()
ayadi = Sayfa4.Range("C67")
tarih = Sayfa4.Range("D67")
Sayfa4.Range("F4:F47").Copy Sayfa4.Range("C4:C47")
Sayfa4.Range("J4:J47").Copy Sayfa4.Range("L4:L47")
MsgBox "& ayadi & "vergileri " & tarih & " tarihinde aktarıldı.", vbInformation,
kodu ile ekdeki dosyamdaki gibi kopyalama yapmak istiyorum.Fakat kod formüllerin bulunduğu hücreleri kopyaladığından hata vermekte.MsgBox da hatalı. ben bu kodu başka bir belgeden kopyalayıp uygulamaya çalıştım. ama visual basic bilgim az olduğundan yapamadım. ustalar bir el atsanız.
daha anlaşılır şekilde yeni sorularsayfa4 yerine VERGİ yazdım.2 nolu mesaj
1-verdiğiniz kod düzgün çalıştı.fakat problemim aktarma yaptığında örnek c4 hücresinde 65.493,03 görülmekte fakat förmül çubuğunda 65493,034337804 bu değer yazmakta. Benim istediğim formül çubuğundada 65.493,03 yazması bu şekilde yazacak şekilde aktarması.
2- birde MsgBox daki mesajı belgenin bir hücresine yazmasını istiyorum

 

[fedeal]

çalışmanızda sayfa4 yok ne yapılmak istendigini tam anlamamkla bilikte sayfa isimleri yanlış girilmiş ve kopyalama işlemide hatalı gibi geldi alttaki kodu deneyin olur umarım.

Private Sub CommandButton3_Click()
    ayadi = Sheets("Sayfa4").Range("C67")
    tarih = Sheets("Sayfa4").Range("D67")
    For i = 4 To 47
    Sheets("Sayfa4").Range("C" & i).Value = Sheets("Sayfa4").Range("F" & i).Value
    Sheets("Sayfa4").Range("L" & i).Value = Sheets("Sayfa4").Range("J" & i).Value
    Next
MsgBox ayadi & " vergileri " & tarih & " tarihinde aktarıldı.", vbInformation, "Bilgi"
End Sub

 

[vitaminb1]

verdiğiniz kodu denedim oldu.kodu eklenmiş şekilde 1 nolu mesada düzeltme yaptım. kodla ilgili 2 soru ekledim. fakat bununla ilgili 2 sorum var bir bakarmısınız. sayfa4 yerine VERGİ yazdım.
1-verdiğiniz kod düzgün çalıştı.fakat problemim aktarma yaptığında örnek c4 hücresinde 65.493,03 görülmekte fakat förmül çubuğunda 65493,034337804 bu değer yazmakta. Benim istediğim formül çubuğundada 65.493,03 yazması bu şekilde yazacak şekilde aktarması.
2- birde MsgBox daki mesajı belgenin bir hücresine yazmasını istiyorum

 

[fedeal]

Private Sub CommandButton1_Click()
    ayadi = Sheets("VERGİ").Range("C67")
    tarih = Sheets("VERGİ").Range("D67")
    For i = 4 To 47
    
    Sheets("VERGİ").Range("C" & i).Value = WorksheetFunction.Round(Sheets("VERGİ").Range("F" & i).Value, 2)
    Sheets("VERGİ").Range("L" & i).Value = WorksheetFunction.Round(Sheets("VERGİ").Range("j" & i).Value, 2)
    Next
    Cells(4, "g").Value = ayadi & " vergileri " & tarih & " tarihinde aktarıldı."
MsgBox ayadi & " vergileri " & tarih & " tarihinde aktarıldı.", vbInformation, "Bilgi"
End Sub

mesajboxun bilgileri g4 hücresine yazıyor.

 

[vitaminb1]

Bu son kod işimi gördü. teşekkürler FEDEAL...

 

[fedeal]

Bu son kod işimi gördü. teşekkürler FEDEAL...

İşinize yaradığına sevindim,iyi çalışmalar.