İki Hücrenin Birleştirilmesi

[sabri şirin]

Merhaba,
F11'deki Hücrenin I sütununa yazdırma koduna bir ilave yapmam lazım. H11 hücresinide ilave etmek istiyorum.Yani F11+H11 birleşerek I sütununa yazdırılması için nasıl birleştirebilirim?

.....
Worksheets("Makbuz kayıt").Range("I" & say) = Worksheets("Makbuz").Range("F11")
....

...Worksheets("Makbuz").Range("F11&" "&H11")
...

Yukarıdaki Kodu denedim olmadı!:redface:
Saygılarımla...

 

[uzmanamele]

Merhaba,
F11'deki Hücrenin I sütununa yazdırma koduna bir ilave yapmam lazım. H11 hücresinide ilave etmek istiyorum.Yani F11+H11 birleşerek I sütununa yazdırılması için nasıl birleştirebilirim?

.....
Worksheets("Makbuz kayıt").Range("I" & say) = Worksheets("Makbuz").Range("F11")
....

Yukarıdaki Kodu denedim olmadı!:redface:
Saygılarımla...

Merhaba
=Sum(Range("f11:h11"))
veya
=range("f11")+range("h11")
gibi kullanın

 

[sabri şirin]

=Sum(Range("f11:h11"))

Hata vermedi ama,kayıt yapmadı

=range("f11")+range("h11")

Bunda hata verdi.

Kullandığım kodların tamamı aşşağıdadır.

Sub MakbuzPrinter()
Call KALDIR
YesNo = MsgBox("Teslim edilecek Nakit ile Yapılan masrafları kontrol ettiniz mi?...", vbYesNo + vbInformation, "EXCEL.WEB.TR")
Select Case YesNo
Case vbYes
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Makbuz Kayıt").Range("A65530").End(3).Row + 1
Worksheets("Makbuz kayıt").Range("A" & say) = Worksheets("Makbuz").Range("L5")
Worksheets("Makbuz kayıt").Range("B" & say) = Worksheets("Makbuz").Range("B8")
Worksheets("Makbuz kayıt").Range("C" & say) = Worksheets("Makbuz").Range("I3")
Worksheets("Makbuz kayıt").Range("D" & say) = Worksheets("Makbuz").Range("N6")
Worksheets("Makbuz kayıt").Range("E" & say) = Worksheets("Makbuz").Range("N9")
Worksheets("Makbuz kayıt").Range("F" & say) = Worksheets("Makbuz").Range("N12")
Worksheets("Makbuz kayıt").Range("G" & say) = Worksheets("Makbuz").Range("N20")
Worksheets("Makbuz kayıt").Range("H" & say) = Worksheets("Makbuz").Range("N22")
Worksheets("Makbuz kayıt").Range("I" & say) = Worksheets("Makbuz").Range("F11")
Worksheets("Makbuz kayıt").Range("J" & say) = Worksheets("Makbuz").Range("Z20")
Worksheets("Makbuz kayıt").Range("K" & say) = Worksheets("Makbuz").Range("L6")
Worksheets("Makbuz kayıt").Range("L" & say) = Worksheets("Makbuz").Range("L7")
Worksheets("Makbuz kayıt").Range("M" & say) = Worksheets("Makbuz").Range("N15")
End Select
Call KORU
End Sub

Saygılarımla..