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

kont1327

Altın Üye
Katılım
2 Mayıs 2015
Mesajlar
18
Beğeniler
0
Excel Vers. ve Dili
2007 türkçe 2016 türkçe
#1
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

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
2,841
Beğeniler
94
Excel Vers. ve Dili
Office 2016 TR 64 Bit
#2

kont1327

Altın Üye
Katılım
2 Mayıs 2015
Mesajlar
18
Beğeniler
0
Excel Vers. ve Dili
2007 türkçe 2016 türkçe
#3
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
 

asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
2,841
Beğeniler
94
Excel Vers. ve Dili
Office 2016 TR 64 Bit
#5
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

Altın Üye
Katılım
2 Mayıs 2015
Mesajlar
18
Beğeniler
0
Excel Vers. ve Dili
2007 türkçe 2016 türkçe
#6
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
 
Katılım
8 Temmuz 2016
Mesajlar
32
Beğeniler
5
Excel Vers. ve Dili
excell 10
#7
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.
 
Katılım
17 Ekim 2019
Mesajlar
1
Beğeniler
0
Excel Vers. ve Dili
2016 İngilizce türkçe
#12
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
 
Katılım
19 Mart 2007
Mesajlar
1,225
Beğeniler
14
Excel Vers. ve Dili
Office 2013
#17
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.

Adsız1.png


Adsız2.png
 
Katılım
27 Haziran 2019
Mesajlar
2
Beğeniler
0
Excel Vers. ve Dili
2013 ingilizce
#18
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
 
Üst