Çözüldü Excel de Toplu QR KOD oluşturma?

[kont1327]

arkadaşlar elimde bi excel dosyası var ve içerisinde yaklaşık olarak 2000 adet serino kaydı var. benim istediğim bu seri no lar için ayrı ayrı QR KOD oluşturmak istiyorum ama bunu toplu şekilde nasıl yapabilirim bilmiyorum. yardımcı olursanız çok sevinirim. biraz acil bi durum. yardımcı olabilecek varsa şimdiden tşk ederim.

 

[Asri]

Merhaba,

Bu linkte ücretsiz olarak word mail merge ve google link kullanılarak oluşturma işlemi detaylı olarak anlatılmış. Deneyiniz.
https://officeuzmani.wordpress.com/2015/02/10/adres-mektup-birlestirme-mail-merge-ile-qr-kod-olusturma/

Ayrıca benim yazdığım google link ile qr code oluşturma programı aşağıdadır. Ücretlidir.
http://asriakdeniz.com/excel-qr-code-kare-kod-barkod-uretici/

 

[kont1327]

cevabınız için teşekkür ederim ama benim bir defaya mahsus böyle bi uygulamaya ihtiyacım var yüzden mümkünse ücretsiz çözmeye çalışacağım teşekkür ederim

 

[1ndependent]

Deneyiniz.

 

[Asri]

cevabınız için teşekkür ederim ama benim bir defaya mahsus böyle bi uygulamaya ihtiyacım var yüzden mümkünse ücretsiz çözmeye çalışacağım teşekkür ederim

Bende bu yüzden alternatif sundum.

Kolay gelsin.

 

[kont1327]

Deneyiniz.

gönderdiğiniz dosyayı denedim tam istediğim gibi fakat bir sorun var. karekod oluştur dediğimde sadece imlecin olduğu satırın karekodunu oluşturuyor. ben A sütunundaki tüm satırlarda bulunan serinoların hepsine oluştursun istiyorum

 

[1ndependent]

gönderdiğiniz dosyayı denedim tam istediğim gibi fakat bir sorun var. karekod oluştur dediğimde sadece imlecin olduğu satırın karekodunu oluşturuyor. ben A sütunundaki tüm satırlarda bulunan serinoların hepsine oluştursun istiyorum

Satırların hepsini seçerek deneyiniz.

 

[kont1327]

Satırların hepsini seçerek deneyiniz.

yaptım çok teşekkür ederim hayırlı günler

 

[horozon]

Deneyiniz.

Merhaba, öğrenciyim ve altın üye değilim. Benimle de paylaşma şansınız var mıdır?
onderhrz@gmail.com

 

[mlhtha]

merhabalar altın üye olunmadan açılmıyor benimle de paylaşır mısınız bjk__taha@hotmail.com

 

[tugrabildircin]

Sayın 1ndependent bu qr kodları dışarıya aktarmadan excel içinde ayrı bir sütunda oluşturabilme imkanımız var mı acaba

 

[ismlcyrl]

Merhaba. Bende öğrenciyim kendi işim için kullanacağım gönderirseniz sevinirim. ismailcayirli@gmail.com

Deneyiniz.

 

[cihan çetin]

Merhabalar, Excel de yeniyim benimle de paylaşabilir misiniz acaba? chnctn44@gmail.com

 

[cihan çetin]

Merhaba, öğrenciyim ve altın üye değilim. Benimle de paylaşma şansınız var mıdır?
onderhrz@gmail.com

Merhabalar, eğer istediğiniz dosya sizinle paylaşıldıysa bana da gönderebilme şansınız var mı acaba? chnctn44@gmail.com

 

[idris_35]

Merhaba altın üye değilim malesef. Ticari olarak değil ödevimde kulllanacağım. Paylaşmanız mümkün müdür?
idrisyeg_tr@hotmail.com

 

[beab05]

Merhabalar;
Yakında vereceğimiz eklentiyle çok kolay şekilde nerdeyse her türlü veri kaynağından ki excel de elbette var ve her türlü barcode oluşturup istediğiniz formata export edebileceksiniz. Sadece barcode değil tabii.

Aşağıya çok basitçe ve kabaca eklediğim bir rapor tasarımını ve excel e alınmış halinin resimlerini ekliyorum.

 

[horozon]

Merhabalar, eğer istediğiniz dosya sizinle paylaşıldıysa bana da gönderebilme şansınız var mı acaba? chnctn44@gmail.com

Merhaba. Bende öğrenciyim kendi işim için kullanacağım gönderirseniz sevinirim. ismailcayirli@gmail.com

Merhaba altın üye değilim malesef. Ticari olarak değil ödevimde kulllanacağım. Paylaşmanız mümkün müdür?
idrisyeg_tr@hotmail.com

Merhaba,

Bana iletilen kod bu şekilde fakat ben denemedim. Umarım işinizi görür. İyi çalışmalar.

...


Sub InsertQR()
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
Dim Size: Size = 250 'dalam Pixels
Dim QR, Name, val
Dim Invalid: Invalid = "\/:*?" & """" & "<>|"
For Each val In Selection
Name = val.Value
QR = "http://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" & Name
xHttp.Open "GET", QR, False
xHttp.Send
For intChar = 1 To Len(Name)
If InStr(Invalid, LCase(Mid(Name, intChar, 1))) > 0 Then
Name = WorksheetFunction.Substitute(Name, Mid(Name, intChar, 1), "_")
End If
Next
With bStrm
.Type = 1 '//binary
.Open
.write xHttp.responseBody
.savetofile ThisWorkbook.Path & Application.PathSeparator & Name & ".png", 2 '//overwrite
.Close
End With
Next
End Sub

 

[gabriel_h]

Deneyiniz.

Merhaba, İlgili ürünü banada gönderme şansınız var mıdır? Teşekkürler. hasans_d@hotmail.com

 

[mrtkvlcm]

Deneyiniz.

Merhaba altın üye değilim ancak dosyaya çok ihtiyacım var. Paylaşabilirseniz sevinirim.
mrtkvlcm@gmail.com
Teşekkürler

 

[hasaona]

Merhaba, İlgili ürünü banada gönderme şansınız var mıdır? Teşekkürler. taskiran_75_1905@hotmail.com