inputbox soru

[hwoarangxc]

Selection.TypeText Text:=InputBox("Numarası:", "ARACIN PLAKA!")
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph

Böyle bir makro yaptım.wordde yazı yazdırmak için(inputboxtakini)
şimdi ben kutuya yazıyorum.onu worde aktarıyor yazdırıyor fakat bundan yazıda iki kere tekrarlanıyor.acaba bu inputboxa yazdığımı alt satırlara nasıl kopyalatabilirim.inputboxa isim mi vereceğiz.
teşekkürler.

 

[Recep İpek]

veri=InputBox("Numarası:", "ARACIN PLAKA!")

Selection.TypeText Text:=veri
....
....
....
Selection.TypeText Text:=veri
...
...
şeklinde deneyiniz.

 

[hwoarangxc]

çok teşekkür ederim

 

[hwoarangxc]

birşey daha sorayım.mesala yukarıdaki gibi inputbox açılsın.evet dediğimde kutuya yazılan yazıyı yazsın.hayır dediğimde ise başka bir yazı yazsın . veyahutta bi userform açılsın seçenkli olsun.mesala adını tam bilmiyorum ama checkbox galiba.ona tıkladığımda mesala uzunluğu 1, 2 satır yazı yazmasını istiyorum.
yardımcı olursanız memnun olurum.

 

[Recep İpek]

Ekli dosyayı inceleyiniz.