Tek hücreye iki kayıt

[asi_kartal]

Sheets("Sayfa1").Range("E" & bd).Value = Sheets("Sayfa2").Range("E4")

sayfa2 E4 hücresindeki değer ile E5 hücresindeki değeri sayfa 1 deki E sütünuna aktarmasını istiyorum yukarı kodda ("E4"&" "&"E5") diye yazıyorum hata veriyor. başka ne yapabilirim yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki gibi;

Örnek Kod

Sub kod_ornek()
Sheets("sayfa1").Range("e4") = Sheets("sayfa2").Range("e4") & " " & Sheets("sayfa2").Range("e5")
End Sub

Sheets("sayfa2").Range komutunu tekrar yazmalısınız.

. . .

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

For s = 2 To [e2000].End(3).Row + 1
Cells(s, "e") = [sayfa2!e4] & " " & [sayfa2!e5]
Next

Alternatif :

Cells(Rows.Count, "E").End(3).Offset(1) = _
Sayfa2.[e4] & Sayfa2.[e5]

 

[asi_kartal]

teşekkür ederim ellerinize sağlık.