Makro ile hücrede olmayan harfler ekleme

[savasbayram]

Sub VERİLERİ_TEKRARLI_LİSTELE()
Dim X As Integer, Satır As Long

Columns("a:b").ClearContents
Satır = 1

For X = 1 To Range("d65536").End(3).Row
Range("A" & Satır & ":A" & Satır + Cells(X, "G") - 1) = Cells(X, "D")
Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = Cells(X, "F")
Satır = Range("A65536").End(3).Row + 1
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Makroyu çalıştırdığımda A1 sütununa D1 sütunundaki değer gelmektedir. Değerin başına "ABC" gibi sabit bir değer girdirmemiz mümkünmü?

 

[halit3]

Range("A" & Satır & ":A" & Satır + Cells(X, "G") - 1) = Cells(X, "D")
Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = Cells(X, "F")

Yukarıdaki kodların yerine aşağıdaki kodları denermisiniz.

Range("A" & Satır & ":A" & Satır + Cells(X, "G") - 1) = "abc " & Cells(X, "D")
Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = "ABC" & Cells(X, "F")

 

[savasbayram]

Çözüm için teşekkür ediyorum.
Peki
Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = "ABC" & Cells(X, "F")
satırındaki "ABC" yerine E ve F hücrelerinin birleşik halini A hücresine yazdırabilirmiyiz.

Örnek: Formül bu haliyele
F hücresindeki Ürün adını B hücresine G hücresindeki rakam kadar kopyalayıp başına ABC ekliyor.
Benim yaptırmak istediğim F hücresindeki Ürün adını B hücresine G hücresindeki rakam kadar kopyalayıp , başına E hücresindeki Ürün markasını yazdırmasıdır.

 

[savasbayram]

buna çözümü olan bir hocamız var mı?

Çözüm için teşekkür ediyorum.
Peki
Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = "ABC" & Cells(X, "F")
satırındaki "ABC" yerine E ve F hücrelerinin birleşik halini A hücresine yazdırabilirmiyiz.

Örnek: Formül bu haliyele
F hücresindeki Ürün adını B hücresine G hücresindeki rakam kadar kopyalayıp başına ABC ekliyor.
Benim yaptırmak istediğim F hücresindeki Ürün adını B hücresine G hücresindeki rakam kadar kopyalayıp , başına E hücresindeki Ürün markasını yazdırmasıdır.

buna çözümü olan bir hocamız var mı?

 

[halit3]

Örnek dosya eklemiyi düşünürmüsünüz.

bazen kodlardan bir şey anlaşılması zor oluyor birde bunu denermisiniz.

Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = Cells(X, "E") & Cells(X, "F")