[Yardım]  BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

İleti#1)  CDABİS33 » 11 Tem 2019 20:10

Merhaba,
Ben barkot cihazıyla okuttuğum barkotların aynısı varsa yanına adetini artırmasını yapamadım
sizden ricam barkotu okuttuğum bir hücre olsa bu hücreye okuttuklarımı ayrı bir sayfaya aktarsa ayrıca aynı barkottan tekrar okuttuğumda tekrar yazmak yerine adet sayısını arttıran bir excel hazırlama konusunda yardımcı olurmusunuz
Kullanıcı avatarı
CDABİS33
 
Kayıt: 11 Tem 2019 19:46
Meslek: bilgisayar prog.
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye

Cevap: BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

İleti#2)  CDABİS33 » 11 Tem 2019 20:39

Hocam tam olarak anlatmak istediğim ekte sayfada olduğu gibi ilk sayfada okuttuğumuz barkotu 2. sayfaya barkot yazan yere eklemesi eğer aynı barkottan tekrar okutulursa adetini 2-3-4 yapması bu konuda yardımcı olursanız çok sevinirim şimdiden teşekkürler
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CDABİS33
 
Kayıt: 11 Tem 2019 19:46
Meslek: bilgisayar prog.
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye

Cevap: BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

İleti#3)  CDABİS33 » 14 Tem 2019 17:46

Yardımcı olursanız sevinirim arkadaşlar
Kullanıcı avatarı
CDABİS33
 
Kayıt: 11 Tem 2019 19:46
Meslek: bilgisayar prog.
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye

Cevap: BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

İleti#4)  Feyzullah » 14 Tem 2019 22:06

Örnek olarak eklemiş olduğunuz dosyaya göre kodunuz aşağıdadır. OKUTMA sayfasının kod bölümüne yazınız.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6")) Is Nothing Then Exit Sub
Dim sonuc As Worksheet
Set sonuc 
= Sheets("SONUÇ")
Set bul = sonuc.Range("B:B").Find(Target.Value, , , xlWhole)
If Not bul Is Nothing Then
sonuc
.Range("C" & bul.Row) = sonuc.Range("C" & bul.Row) + 1
Else
sonuc.Range("B" & sonuc.Range("B" & Rows.Count).End(xlUp).Row + 1) = Target.Value
sonuc
.Range("C" & sonuc.Range("C" & Rows.Count).End(xlUp).Row + 1) = 1
End If
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 592
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

İleti#5)  CDABİS33 » 16 Tem 2019 19:59

çok teşekkür ederim elinize sağlık
Kullanıcı avatarı
CDABİS33
 
Kayıt: 11 Tem 2019 19:46
Meslek: bilgisayar prog.
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye

Cevap: BARKOT OKUTMA İLE AYNI BARKOTLARI TOPLAMA

İleti#6)  CDABİS33 » 16 Tem 2019 20:03

belki birilerinin de işine yarar diye ekte paylaşıyorum makro dosyayı
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CDABİS33
 
Kayıt: 11 Tem 2019 19:46
Meslek: bilgisayar prog.
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, prodog, Yasin KURT ve 2 misafir

Bumerang - Yazarkafe