Excel sayfasında ki resmi userformda Image2 de gösterme

YAMAHATO · 22 Kas 2020

Merhaba
forumlarda ki konulardan sorunlarımın bir kısmını çözdüm.
Tıkandığım konu ise şu ekte ki dosyada Userformda "BARKOT OLUŞTUR" isimli comobox tıklayınca
excel sayfasında oluşan barkodu gene Userformda bulunan image2 de gösteremiyorum.

Bir abim sağolsun jpeg yaparak gösteren formülü paylaştı ama sorun şu
jpeg yapınca başla bir barkot oluşturmak için veri girilip barkot oluştur combobox tıklayınca hata veriyor çünkü
internetteki barkot oluşturma sitesinden çektiğimiz bilgi abimin verdiği kod ile jpeg olduğu için yeni girilen veriye göre değişemiyor. Yani hep o jpeg olarak kalıyor.Çalışma 22.11.2020

Ömer BARAN · 22 Kas 2020

Sayın @YAMAHATO .

Image1 nesnesi ve sayfaya veri aktarma konusuyla ilgili olarak;
-- ListBox1_Change kod blokunda, End Sub satırının hemen üstüne aşağıdaki kod satırlarını yapıştırın.
Koddaki RESİM DOSYASIna ilişkin YOL bilgisini ve resim uzantısını kendi resimlerinizin konumuna/uzantısına göre düzenlersiniz.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

-- ETİKETİ YAZDIR düğmesiyle ilgili olarak; aşağıdaki kod blokunu USERFORM'a ait kod sayfasına yapıştırın.

CPP:

İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

-- BARKOD işlemiyle ilgili olarak önerim, internet bağlantısı kurarak oluşturulan barkodu sayfaya resim
olarak kaydetmek yerine, "BARKOD FONT" şeklinde internet arama motoru üzerinden arama yaparak bulabileceğiniz
uygun bir FONT dosyasını bilgisayarınıza indirip ilgili klasöre kaydettikten sonra, barkodun oluşacağı hücrenin
YAZI TİPİni, bu FONT şeklinde ayarlayıp, hücreye basitçe =B1&" "&B2&" "&B3&" "&B4&" "&B5&" "&B6 formülünü uygulamanızı öneriyorum.
Ayrıca REKLAMını yaptığınız internet sitesi üzerinden barkod oluşturmaya çalıştığınızda;
TÜRKÇE karakter sorunu yaşamanızın kuvvetle muhtemel olduğunu hatırlatayım.

.

YAMAHATO · 23 Kas 2020

Ömer BARAN' Alıntı:
Sayın @YAMAHATO .

Image1 nesnesi ve sayfaya veri aktarma konusuyla ilgili olarak;
-- ListBox1_Change kod blokunda, End Sub satırının hemen üstüne aşağıdaki kod satırlarını yapıştırın.
Koddaki RESİM DOSYASIna ilişkin YOL bilgisini ve resim uzantısını kendi resimlerinizin konumuna/uzantısına göre düzenlersiniz.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (7 satır)

-- ETİKETİ YAZDIR düğmesiyle ilgili olarak; aşağıdaki kod blokunu USERFORM'a ait kod sayfasına yapıştırın.

CPP:

İndirmek için giriş yapmanız gerekmektedir. (13 satır)

-- BARKOD işlemiyle ilgili olarak önerim, internet bağlantısı kurarak oluşturulan barkodu sayfaya resim
olarak kaydetmek yerine, "BARKOD FONT" şeklinde internet arama motoru üzerinden arama yaparak bulabileceğiniz
uygun bir FONT dosyasını bilgisayarınıza indirip ilgili klasöre kaydettikten sonra, barkodun oluşacağı hücrenin
YAZI TİPİni, bu FONT şeklinde ayarlayıp, hücreye basitçe =B1&" "&B2&" "&B3&" "&B4&" "&B5&" "&B6 formülünü uygulamanızı öneriyorum.
Ayrıca REKLAMını yaptığınız internet sitesi üzerinden barkod oluşturmaya çalıştığınızda;
TÜRKÇE karakter sorunu yaşamanızın kuvvetle muhtemel olduğunu hatırlatayım.

.

Ömer bey öncelikle forum kurallarını çiğnediysem özür dilerim.
Ufak bir bilgi vereyim önce müsadenizleBarkod fond konusunda önce zaten dediğiniz gibi yaptım. Barkod fondu olarak ta türkçe harf ve işaretleri en iyi desteklediği söylenen code 128 ile yaptım ama aslında asla reklamını yapmak gibi amacım olmayan internet sitesinden çektiğim code128 ile yazılmış barkodu okuyan barkod okuyucum sizin tavsiyeniz gibi yapıp indirdiğim code12 barkodunu okumadı.
Birde kızmazsanızverdiğiniz kod ile ilgili 2 sorum var.
1- aşağıda ki kod excel sayfasında ki barkodu almak için mi yoksa herhangi bir dosyada ki resmi almak için mi?
2- Barkodu almak içinde excel sayfasının ismini nereye(sayfa ismi "BARKOT") Barkodun ismi nereye yazılacak("barcode) dosyada ki resmi almak içinde dosyanın yolu nereye yazılacak.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

Ömer BARAN · 23 Kas 2020

Verdiğim kod önerilerinin BARKOD olayıla ilgisi yok.
Userform üzerindeki Image1 nesnesine getirilecek, Listbox ta adı seçilmiş olan ve bilgisayarınızdaki yol bilgisini verdiğiniz (....YARDIMCI FOTOLAR.... idi galiba yol bilgisi) resimlerle ilgiliydi.
Bilgisayarda değilim. Ancak, bu kadar hatırlayabildim.

.

YAMAHATO · 23 Kas 2020

Ömer BARAN' Alıntı:
Sayın @YAMAHATO .

Image1 nesnesi ve sayfaya veri aktarma konusuyla ilgili olarak;
-- ListBox1_Change kod blokunda, End Sub satırının hemen üstüne aşağıdaki kod satırlarını yapıştırın.
Koddaki RESİM DOSYASIna ilişkin YOL bilgisini ve resim uzantısını kendi resimlerinizin konumuna/uzantısına göre düzenlersiniz.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (7 satır)

-- ETİKETİ YAZDIR düğmesiyle ilgili olarak; aşağıdaki kod blokunu USERFORM'a ait kod sayfasına yapıştırın.

CPP:

İndirmek için giriş yapmanız gerekmektedir. (13 satır)

ÇALIŞMA EN SON
-- BARKOD işlemiyle ilgili olarak önerim, internet bağlantısı kurarak oluşturulan barkodu sayfaya resim
olarak kaydetmek yerine, "BARKOD FONT" şeklinde internet arama motoru üzerinden arama yaparak bulabileceğiniz
uygun bir FONT dosyasını bilgisayarınıza indirip ilgili klasöre kaydettikten sonra, barkodun oluşacağı hücrenin
YAZI TİPİni, bu FONT şeklinde ayarlayıp, hücreye basitçe =B1&" "&B2&" "&B3&" "&B4&" "&B5&" "&B6 formülünü uygulamanızı öneriyorum.
Ayrıca REKLAMını yaptığınız internet sitesi üzerinden barkod oluşturmaya çalıştığınızda;
TÜRKÇE karakter sorunu yaşamanızın kuvvetle muhtemel olduğunu hatırlatayım.

.

oluşan barkodu almak için kodu bu şekilde girince, kalın olarak yazdığım hata verip sarı oluyor.
' *************** CommandButton5 TIKLAYINCA resim yükleme **************
Set dosya = CreateObject("Scripting.FileSystemObject")
resim_varmi = dosya.FileExists(BARKOD.Path & "\" & Me.ListBox1.Value & ".gif")
If resim_varmi Then
Me.Image1.Picture = LoadPicture(BARKOD.Path & "\" & Me.ListBox1.Value & ".gif")
Else
Me.Image1.Picture = Nothing
End If

End Sub

YAMAHATO · 23 Kas 2020

Ömer bey tamam çözdü. Ufak bir yardım daha rica ediyorum.
eğer başka bir ListBox1.Value değerinin dosyada resmi yoksa resimlerin bulunduğu dosyada ki VH000 isimli resmin gelmesini sağlaya bilirmiyiz. Yani resmi olmayan yada bulunamayan stok kodu olduğunda hep VH000 resmi gelsin Image1'e

Ömer BARAN · 23 Kas 2020

Koddaki ELse satırından sonraki kısma, VH000 resminin yolunu ve adını yazmanız yeterli olur.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

.

YAMAHATO · 23 Kas 2020

Ömer BARAN' Alıntı:
Koddaki ELse satırından sonraki kısma, VH000 resminin yolunu ve adını yazmanız yeterli olur.

VBA:

İndirmek için giriş yapmanız gerekmektedir. (2 satır)

.

Binlerce kez teşekkür ederim.
Bu gecenin son sorusu,ben verdiğiniz aşağıda ki kodda nerede hata yaptım ki resimde ki gibi "ETİKET YAZDIR" botonuna basınca depoda ki yeri çıkıyor. Raf noyada hiç bir şey atanmıyor.

Private Sub CommandButton1_Click()
Sheets("ETİKET YAZDIRMA").Range("B1:B7,A8:B8").ClearContents
For XD = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(XD) Then
For XDtxt = 2 To 8
ek = 2
If XDtxt = 7 Then XDtxt = XDtxt + 1: ek = 3
Sheets("ETİKET YAZDIRMA").Cells(XDtxt - ek + 1, 2) = Me.Controls("TextBox" & XDtxt).Text
Next
Exit For
End If
Next
End Sub

Ömer BARAN · 23 Kas 2020

Kusura bakmayın ama; tam olarak anlamadım.
Userform üzerindeki TextBox'ta mı eksik/yanlış sonuç geliyor,
yoksa sol alttaki düğmeye tıklayınca ETİKET YAZDIRMA isimli sayfaya eksik/yanlış veri mi geliyor.

En iyisi; ETİKET YAZDIRMA sayfası A sütunundaki hücrelere ve
Userform üzerindeki Textboxların solunda yer alan LABEL nesnelerine
SAHİBİNDEN sayfasındaki başlıkları birebir aynı olacak şekilde yazıp,
örnek belgenizi yenileyin, uzun uzun anlatmaya lüzum yok.

Ben de eksik/yanlı bir işem var mıdır, başlıklara bakarak kontrol edebileyim.

İyi çalışmalar.

.

	Verileri Başka Bir Excel Sayfasından Çekme Feyzullah 14 May 2024 Makro Soruları
	Excel Sayfasında Veri Saydırma Ömer BARAN 24 Mar 2021 Makro Soruları
	Kapalı Excel Sayfasından Veri Alma cakarem 4 Şub 2021 Makro Soruları
	SAP Programından Excele Otomatik Veri Çekme engin0687 1 Şub 2024 Makro Soruları
	Excel Üzerinden WhatsApp Mesajı Gönderme Feyzullah 5 Eyl 2020 Makro Soruları