Qrcode'lu Kartlar

[muhabbet35]

Merhaba; QRCODE OKUL isimli dosyada "KART" ve "VERİ" alanları bulunmaktadır. KART sayfasında hepsi bir arada A4 boyutunda dört kart bulunmaktadır. Üç ve dört no'lu kartları bir arada seçerek sağa doğru uzattıkça yeni kartlarda listeye bağlı olarak otomatik olarak oluşmaktadır.

Ancak aynı sırayla kart boşluklarına Qrcode'larında gelmesini istiyorum.

Yardımlarınız için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba

Öncelikle "Veri" sayfasına eklediğiniz Qr Codelerin(fotoların) isimlerini sıra numarası ile aynı yapmamız gerekiyor.
Bunun için
1-Bütün QR Codeleri(fotoları) silin.
2-Module3 de bulunan "Ekle" kodları içindeki .Placement = xlMoveAndSize satırın altına .Name = Cells(ActiveCell.Row, "A") satırını ekleyin.
3- Ekle makrosunu çalıştırın.

Böylelikle bütün Qr Codelerin(fotoların) isimleri sıra numarası ile aynı olacak şekilde yeniden eklenmiş oldu

Aşağıdaki kodu "Kart" adlı sayfanın kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range
    Dim QR_ As String
    For Each Alan In Target
        If Alan.Text = "SIRA" Then
            QR_ = Alan(1, 3).Text
            Worksheets("VERİ").Shapes(QR_).Copy
            Alan(11, 1).Select
            Paste
        End If
    Next
End Sub

Şimdi "Kart" sayfasında kart kopyalama işlemi yaptığınızda Qr Code "Veri" sayfasında bulunup gerekli yere kopyalanacaktır.

Bundan sonra her eğer Qr Code eklerseniz fotonun ismini sıra numarası ile aynı yapmayı unutmayın

 

[muhabbet35]

Merhaba; cevabınız için çok teşekkür ederim. Yazdığınız kodu çalıştırdım, kodlar hazırladığım yerlere 5. karttan itibaren gelmeye de başladı. Bazı sorunlarım da oldu, ancak onları da vb'yi biraz daha öğrendikten sonra sormam daha doğru olur.

İyi bayramlar.