Merhaba arkadaşlar. Ekteki projemdeki Üst Yazı butonuna bastığımızda "Konusunu Gir" diye bir uyarı vermesini ve biz "gbt" veya "kan" yazıp tamam dediğimizde yine ekte bulunan konusunu yazdığımız "gbt veya "kan word belgelerine verileri aktarmasını istiyorum. Word belgelerine ben Yer İmlerini ekledim. Yardımcı olursanız çok sevinirim teşekkürler.
Dim GVeri, strTemplateLocation As String
GVeri = InputBox("", "Konusunu Gir", "")
If GVeri = "gbt" Then
strTemplateLocation = CurrentProject.Path & "\gbt.doc"
'word belgesini açtırma ve yer imlerine veri aktarma kodları
ElseIf GVeri = "kan" Then
strTemplateLocation = CurrentProject.Path & "\kan.doc"
'word belgesini açtırma ve yer imlerine veri aktarma kodları
End If
Şeklinde kod ekleyiniz. Butona tıkladığınızda input açılır gbt yazdığınızda gbt.doc açılır. Veri aktarma kodlarını eklemelisiniz.
Hocam şu şekilde hata veriyor: ekte var
strTemplateLocation değişkenini bir kaç yerde tanımlamışsınız. değişkenler aynı olay bloğu içinde 1 defa tek tanımlanır
tmmdır düzeldi tşk ediyorum.