vergi numarası girerken faturanın ekrana çıkması

[purpledarkness]

hücreye vergi numarası girişi yaparken vergi numarasının sahibi olan firmanın faturasının jpeg olarak excelde ekrana gelmesi mümkünmüdür?

yani 10 haneli vergi numarasını veya 11 haneli TC kimlik numarasını girdiğimde hücreye onumaranın sahibi olan firmaya ait fatura (harddiskimde mevcut) ekrana çıkması,

yapılabilirse kontrol açıdan baya işime yarıyacak.

uğraşacak arkadaşlara şimdidien kolay gelsin, iyi çalışmalar

 

[Mahmut Kök]

Aşağıdaki kodları kullanabilirsiniz. Jpeg şeklindeki resimlere, Tc veya vergi numaralarını isim olarak vermelisiniz ve bütün müşterilerin jpegleri aynı klasör (dosyayolunuz) altında olmalıdır. Umarım işinize yarar.

[COLOR=blue]jpegadı [/COLOR]= Range("A1").Text [COLOR=darkorange]'TC veya Vergi No[/COLOR]
rtop = Range("d5").Top [COLOR=darkorange]'ekrana gelecek resmin D5 hücresinin olduğu yere gelmesini istiyoruz.
[/COLOR]rleft = Range("d5").Left
 Set resim = ActiveSheet.Pictures.Insert("[COLOR=red]dosyayolunuz[/COLOR]\" & [COLOR=blue]jpegadı[/COLOR] & ".jpeg")
 resim.Left = rleft [COLOR=darkorange]'eklenen resmin yerini tespit ettik.
[/COLOR] resim.Top = rtop

 

[purpledarkness]

Aşağıdaki kodları kullanabilirsiniz. Jpeg şeklindeki resimlere, Tc veya vergi numaralarını isim olarak vermelisiniz ve bütün müşterilerin jpegleri aynı klasör (dosyayolunuz) altında olmalıdır. Umarım işinize yarar.

[COLOR=blue]jpegadı [/COLOR]= Range("A1").Text [COLOR=darkorange]'TC veya Vergi No[/COLOR]
rtop = Range("d5").Top [COLOR=darkorange]'ekrana gelecek resmin D5 hücresinin olduğu yere gelmesini istiyoruz.
[/COLOR]rleft = Range("d5").Left
 Set resim = ActiveSheet.Pictures.Insert("[COLOR=red]dosyayolunuz[/COLOR]\" & [COLOR=blue]jpegadı[/COLOR] & ".jpeg")
 resim.Left = rleft [COLOR=darkorange]'eklenen resmin yerini tespit ettik.
[/COLOR] resim.Top = rtop

faturaların jpeglerini Belgelerimdeki bir dosyada saklamamın bir sakıncası yok herhalde veya C'nin içinde herhangi bir yerinde saklamamın herhangi bir sakıncası olmaz değil mi?

 

[purpledarkness]

Aşağıdaki kodları kullanabilirsiniz. Jpeg şeklindeki resimlere, Tc veya vergi numaralarını isim olarak vermelisiniz ve bütün müşterilerin jpegleri aynı klasör (dosyayolunuz) altında olmalıdır. Umarım işinize yarar.

[COLOR=blue]jpegadı [/COLOR]= Range("A1").Text [COLOR=darkorange]'TC veya Vergi No[/COLOR]
rtop = Range("d5").Top [COLOR=darkorange]'ekrana gelecek resmin D5 hücresinin olduğu yere gelmesini istiyoruz.
[/COLOR]rleft = Range("d5").Left
 Set resim = ActiveSheet.Pictures.Insert("[COLOR=red]dosyayolunuz[/COLOR]\" & [COLOR=blue]jpegadı[/COLOR] & ".jpeg")
 resim.Left = rleft [COLOR=darkorange]'eklenen resmin yerini tespit ettik.
[/COLOR] resim.Top = rtop

Bir şey daha sorabilirmiyim, excelde makrolar konusunda oldukça yeniyim ve bazı şeyleri doğru yapıp yapmadığımı bilmiyorum, bu kısıtlı bilgimi mazur görmenizi isteyerek genel bir soru sormak istiyorum.

sizin bu verdiğiniz veya forumda verilen kodları kendi aktif excel dosyama alırken izlediğim yöntem doğru mu?

önce verilen bu kodu kopyaladım daha sonra çalıştığım aktif excel dosyama gelerek, Araçlar<Makro<Visual Basic Düzenleyicisine tıklayıp sağdaki boş code sayfasına yapıştırdım daha sonra File'ın altındaki Close and Return the Microsoft excel'e bastım,

yani bu işlemleri yapınca o kodu çalıştırmış oluyormuyum yoksa başka yapacağım bir işlem var mı,

 

[Mahmut Kök]

Faturaların jpeglerini Belgelerimdeki bir dosyada saklamamın bir sakıncası yoktur. C'nin içinde herhangi bir yerinde saklamamın herhangi bir sakıncası olmaz.

Makroları VBA sayfasına ekleme yolunuz da doğru.VBA sayfasındayken İnsert (Ekle) başlığı altından modül eklerseniz, genel modül olarak kullanabilirsiniz. VBA sayfasından çıkıp excele dönmek için, VBA sayfasını köşedeki X düğmesiyle kapatsanız da bir şey olmaz. İyi çalışmalar dilerim.

 

[purpledarkness]

Faturaların jpeglerini Belgelerimdeki bir dosyada saklamamın bir sakıncası yoktur. C'nin içinde herhangi bir yerinde saklamamın herhangi bir sakıncası olmaz.

Makroları VBA sayfasına ekleme yolunuz da doğru.VBA sayfasındayken İnsert (Ekle) başlığı altından modül eklerseniz, genel modül olarak kullanabilirsiniz. VBA sayfasından çıkıp excele dönmek için, VBA sayfasını köşedeki X düğmesiyle kapatsanız da bir şey olmaz. İyi çalışmalar dilerim.

aormak istediğim birşey var verdiğiniz kodu kopyalayıp modüle yapıştırdım, sonra kapattım. daha sonra Araçlar-Makro-Makroları tıkladığımda bu makro orda görünmesi gerekmez mi, makrolara baktığımda bomboş görünüyor, bu makroyu nasıl çalıştıracağım.

 

[Mahmut Kök]

Kodlarda şu anda makro adı yok. Sub- end sub aralığına yazılması gerekir. Aşağıdaki gibi ayarlayınız.

sub resim ()
 
... 'Kodlar burada olacak.
 
end sub

 

[purpledarkness]

Kodlarda şu anda makro adı yok. Sub- end sub aralığına yazılması gerekir. Aşağıdaki gibi ayarlayınız.

sub resim ()
 
... 'Kodlar burada olacak.
 
end sub

Dediğini yaptım bu sefer resim isimli makroyu çalıştırdığımda Compile error, Expected function or variable uyarısını alıyorum ve tamama basınca Sub resim() yazan baştaki kısım sarı renge bürünüyor ve solunda yine sarı bir ok beliriyor.

 

[Mahmut Kök]

Kusura bakmayın, cevabı sonradan yazınca kodları unutmuşum. Makro adı ile aynı adı taşıyan bir değişkeni kod içinde kullanmışız. Makro adını değiştirerek deneyiniz. Mesela Resimm yapın.

 

[purpledarkness]

Kusura bakmayın, cevabı sonradan yazınca kodları unutmuşum. Makro adı ile aynı adı taşıyan bir değişkeni kod içinde kullanmışız. Makro adını değiştirerek deneyiniz. Mesela Resimm yapın.

hocam bu kez de picure sınıfının insert özelliği alınamıyor runtime error 1004 hatası verdi.