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.