Bilgileri Tabloya Aktarmak

[Dran KAPTAN]

Yapmak İstediğimi açılır kutudan seçtiğim malzemeyi belge gir sayfasında kaç defa işlem gördüyse alt alta hazırladığım tabloya yerleştirmek istiyorum.ilgenen arkadaşlara şimdiden çok teşekkür ederim saygılarımla.

 

[Necdet]

Merhaba,

Birşeyler yapmaya çalıştım ama konuyu tam olarak anlamadığım için umarım eksik bilgileri siz tamamlarsınız.

Private Sub ComboBox1_Change()
Range("A6:B20").ClearContents
Set b = Sheets("BELGEGİR")
Sat = 5
For i = 2 To b.[A65536].End(3).Row
    If b.Cells(i, "E") = [B3] Then
        Sat = Sat + 1
        Cells(Sat, "A") = b.Cells(i, "B")
        Cells(Sat, "B") = b.Cells(i, "C")
        b.Range("G" & i & ":S" & i).Copy Cells(Sat, "G")
    End If
Next i
MsgBox Sat - 5 & " Adet Kayıt Aktarılmıştır....."
End Sub

 

[Dran KAPTAN]

Sayın Necdet Yeşertener öncelikle ilgilendiğiniz için teşekkür ederim istediğim böyle bişeydi tek sorun yeni malzeme seçtiğim zaman 1 ci satırdan sonra yeni malzeme öncekinden az işlem görmüşse alt satırlarda önceki malzemenin miktarları kalıyo.bunu engellememiz mümkünmü.

 

[Necdet]

Merhaba Sayın Dran KAPTAN,

Engellemek olası tabi, bende zaten tam anlamadım diye başlamıştım mesajıma. Aşağıdaki kodda kırmızı ile belirttiğim yerleri hala silinmeyen hücreler varsa yazım şekline bakarak ekleyebilirsiniz.

Private Sub ComboBox1_Change()
[B][COLOR=black]Range([COLOR=red]"A6:D20, F6:AA20"[/COLOR]).ClearContents[/COLOR][/B]  'Silinecek Alanlar
Set b = Sheets("BELGEGİR")
Sat = 5
For i = 2 To b.[A65536].End(3).Row
    If b.Cells(i, "E") = [B3] Then
        Sat = Sat + 1
        Cells(Sat, "A") = b.Cells(i, "B")
        Cells(Sat, "B") = b.Cells(i, "C")
        b.Range("G" & i & ":S" & i).Copy Cells(Sat, "G")
    End If
Next i
MsgBox Sat - 5 & " Adet Kayıt Aktarılmıştır....."
End Sub

 

[Dran KAPTAN]

Sayın Necdet Yeşertener yardımlarınız için çok teşekkür ederim.verilerimi girmeye başladım .emeğinize ve ilginize çok teşekkür ederim.

 

[Necdet]

İyi günlerde kullanınız Sayın Dran KAPTAN.