Mutabakat Yazdirmak

[mustafaine1]

Arkadaslar ekli dosyamin ilk sayfasinda mutabakat mektubu var istegim iste sayfa 2`den sirket adlarini sayfa 1`in b7 satirina tek tek dongui olarak yazip cikti almasi, tesekkurler..

 

[mustafaine1]

daha dogrusu ben su sekılde yaptım;

Sub mutabakat_mektubu()

For x = 2 To 401
[b7] = Sheet2.Cells(x, 2)
Sheet1.PrintOut Copies:=1
Next x

End Sub

Sheet2.Cells(x, 2) bunu cift tirnak icine almak istiyorum..

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub mutabakat()
For i = 1 To Sheets("sheet2").Range("b65536").End(3).Row
Sheets("sheet1").Range("b7") = """" & Sheets("sheet2").Cells(i, 2) & """"
Sheets("sheet1").PrintOut Copies:=1
Next
End Sub

 

[mustafaine1]

tamamen goruyor Suleyman Bey, tesekkur ederim. Tirnaklari ben 3 lu yapmistim o yuzden olmadi ama 4 lu yapmamizin mantigini bilmiyorum..

 

[assenucler]

Arkadaşlar sayın uzmanamele'nin kodunu, excel'in kod sayfasına yapıştırdım.

Nasıl kullanacağımı bilmiyorum. Makro tuşu nasıl oluştururum?

İlgi ve yardımınız için önceden teşekkürler..

 

[my_gan]

merhaba, burada ki makro işimi görüyor fakat ufak bir ayrıntı isteyebilir miyim?
2.sayfaya müşterilerimi yazacağım.çıktı almak yerine kaç tane müşteri varsa bunları ayrı ayrı word dosyası şeklinde bilgisayara kayıt edebilir miyiz ?