[Çözüldü]  MsgBox Sorunu ve Makro İle Değer Arttırma

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

MsgBox Sorunu ve Makro İle Değer Arttırma

İleti#1)  DDemirtas » 13 Nis 2018 13:02

Merhabalar,
1.Konu) Ekte gönderdiğim dosyada barkod sil butonu ile listbox1'e eklediğim verileri silebiliyorum. Kullanıcı listbox dışınca bir alan seçili iken, barkod sil butonuna tıklarsa, hata yerine aşağıdaki makroda yer alan msgbox'u çıkarmak istiyorum ancak her barkod silme işleminden sonra msgbox ekrana geliyor.
Kod: Tümünü seç
Sub CommandButton1_Click()
On Error GoTo hata
ListBox1.RemoveItem (ListBox1.ListIndex)
hata:
MsgBox "LÜTFEN BİR BARKOD SEÇİNİZ"
End Sub


2.Konu) O10 hücresinde yer alan B0000001 değerini her seferinde +1 yapacak bir kod bulmaya çalıştım ancak aşağıdakinden öteye gidemedim. Aşağıdaki kod hücrede bulunan "B" harfi silinirse çalışıyor, aksi taktirde çalışmıyor.

Kod: Tümünü seç
Sub Makro2() 
   Dim hucre As Range
   For Each hucre In Range("O10")
   hucre = Round(hucre + 1)
   Next hucre       
End Sub


Not: Çalışma kitabı açılırken otomatik olarak veri tabanı güncellemesi yapıyor, siz açarken hata vermesine aldırış etmeyiniz.

Saygılarımla.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
DDemirtas
Yeni Başlamış
 
Kayıt: 07 Eyl 2017 12:39
Meslek: Kimyager
Yaş: 29
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ETİMESGUT

Cevap: MsgBox Sorunu ve Makro İle Değer Arttırma

İleti#2)  Orion1 » 13 Nis 2018 17:00

Makro1 makronuzu sayfada göremedim.
Diğeri için kod;
Kod: Tümünü seç
Sub CommandButton1_Click()
On Error GoTo hata
ListBox1.RemoveItem (ListBox1.ListIndex)
Exit Sub
hata:
MsgBox "BARKOD SEÇİNİZ"

End Sub
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 22:51
Meslek: inşaat teknikeri
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: MsgBox Sorunu ve Makro İle Değer Arttırma

İleti#3)  DDemirtas » 13 Nis 2018 18:34

Merhaba,
Örnek Dosya güncellenmiştir.
İlk makrodaki düzeltmeniz için teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
DDemirtas
Yeni Başlamış
 
Kayıt: 07 Eyl 2017 12:39
Meslek: Kimyager
Yaş: 29
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ETİMESGUT

Cevap: Cevap: MsgBox Sorunu ve Makro İle Değer Arttırma

İleti#4)  Orion1 » 13 Nis 2018 18:44

DDemirtas yazdı:Merhaba,
Örnek Dosya güncellenmiştir.
İlk makrodaki düzeltmeniz için teşekkür ederim.

Buyurun.:cool:
Kod: Tümünü seç
Sub Makro2()
   Dim hucre As Range
   Set hucre = Range("O10")
   hucre.Value = "B" & Format(Right(hucre.Value, Len(hucre.Value) - 1) + 1, "0000000")
End Sub
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 22:51
Meslek: inşaat teknikeri
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

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

Cevap: MsgBox Sorunu ve Makro İle Değer Arttırma

İleti#5)  DDemirtas » 13 Nis 2018 19:00

Çok teşekkür ederim.
Bu forum sayesinde çok aşama kaydettim.
Desteğiniz benim için çok önemli.
Saygılarımla
Kullanıcı avatarı
DDemirtas
Yeni Başlamış
 
Kayıt: 07 Eyl 2017 12:39
Meslek: Kimyager
Yaş: 29
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ETİMESGUT


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe