Barkodla liste düzenleme

[aksoy53]

Ekte gönderdiğim "TOPLAM KİTAPLAR" sayfasında "A1" hücresine var olan barkodları okuttummu "LİSTELE" sayfasına atsın yardımcı olacaklara şimdiden çok teşekkür ederim.

Amaç: Toplam kitap listesinden diğer kişi ve kuruluşlara vereceğimiz kitapların listesini elde etmek.

 

[Muhammet Okumuş]

Barkod okutunca nasil tepkime veriyor. Yani borkodu okuduktan sonra aktif hücre nereye kayiyor?

 

[aksoy53]

Barkod okuttukça 2. sayfa da listeme sayfasına aktarmasını istiyorum yani elimdeki mevcut kitap listesindeki kitapları a) okuluna 150 tane vermek istiyorum barkodlarını okuttummu bu 150 kitabın listesini diğer sayfada listele alanına aktarmasını istiyorum
İlgi alakanıza teşekkür ederim.

 

[Muhammet Okumuş]

Anlatamadim galiba. Aktif hücre A1 olsun. Barkod A1 hücresine okununca aktif hücre neresi oluyor?

 

[Merhum İdris SERDAR]

Ekte gönderdiğim "TOPLAM KİTAPLAR" sayfasında "A1" hücresine var olan barkodları okuttummu "LİSTELE" sayfasına atsın yardımcı olacaklara şimdiden çok teşekkür ederim.

Amaç: Toplam kitap listesinden diğer kişi ve kuruluşlara vereceğimiz kitapların listesini elde etmek.

.

Okuttuğunuz barkodun A1 hücresine geldiğini varsayarak, (Burada ben veri doğrulama uyguladım.) Aktar düğmesine basınca diğer sayfada listelenmektedir.

Dosyanız ekte.


.

 

[aksoy53]

Teşekkür ederim aktar basmadan direk barkod okuttuğumda diğer sayfaya okuttuğum barkodun verilerini aktarma förmülü olabilirmi

 

[Merhum İdris SERDAR]

.

Bu kodları, "TOPLAM KİTAPLAR" sayfasının Change olayına yazın.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim kynkaln As Range, hdfaln As Range
    Dim hdfsyf As Worksheet, sonsat As Long

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    
    Set kynkaln = Sheets("TOPLAM KİTAPLAR").Range("A1:M1")

    
    Set hdfsyf = Sheets("LİSTELE")
    sonsat = hdfsyf.Cells(Rows.Count, "A").End(xlUp).Row
    
    Set hdfaln = hdfsyf.Range("A" & sonsat + 1)
    kynkaln.Copy
 hdfaln.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    Application.CutCopyMode = False
   
End Sub

.

 

[aksoy53]

Yardımlarınız için çok teşekkür ederim allah razı olsun istediğim oldu.

2. sayfa olan listele sayfasını yazdır bütonu koyup pdf ortamında yazdırma yapılabilirmi

İstediğim oldu bu da olursa daha güzel olur. şimdiden teşekkür ederim.

 

[aksoy53]

Yazdır konusunda yardım lütfen