VERİ alma

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

VERİ alma

İleti#1)  JOSSEF » 25 Haz 2020 08:50

Merhaba
Kısaca söyle yazayım textBox 1 de bir arama kodum VAR. Bu kod sayesinde TextBox1 girdiğim değer ListBox 1 de çıkıyor.
Aşağıda ki kod ile de ListBox1 de çıkan koda tıkladığımda ise TextBox2 de TIKLANAN o kodla ilgili SAHİBİNDEN sayfasında ki B sütününda ki bilgi geliyor.

Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Şimdi sunu beceremedim.
TextBox1 değer girdiğimde ListBox 1 de çıkan değere tıklayınca tıkladığım kodu "STOK" sayfasında arasın bulsun ve o kodun" I" SÜTÜNÜNDA Kİ stok miktarını TextBox3 GETİRSİN.
BEN SÖYLE YAPTIM AMA HATA VERİYOR
Private Sub ListBox1_Change()

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Set s2 = Sheets("STOK")
son = s2.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s2.Range("B1:B" & son), 0) (BURASI SARI YANIYOR)
TextBox3.Text = s2.Cells(sat, "I")
End Sub
Kullanıcı avatarı
JOSSEF
Yeni Başlamış
 
Kayıt: 20 Haz 2020 09:02
Meslek: ESNAF
Yaş: 39
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: VERİ alma

İleti#2)  JOSSEF » 25 Haz 2020 08:52

Aşağıda ki gibi s2 leri s1 yapıca önce sorun çıkmadı ama

If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")

Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("B1:B" & son), 0)
TextBox3.Text = s1.Cells(sat, "I")
End Sub

AMA ŞİMDİ GENE
sat = WorksheetFunction.Match(ListBox1.Value, s2.Range("B1:B" & son), 0) (BURASI SARI YANIYOR)
Kullanıcı avatarı
JOSSEF
Yeni Başlamış
 
Kayıt: 20 Haz 2020 09:02
Meslek: ESNAF
Yaş: 39
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: VERİ alma

İleti#3)  Miraç CAN » 25 Haz 2020 13:23

Aradığınız değeri bulamadığı için veya tür uyuşmazlığı olduğundan hata veriyordur.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: VERİ alma

İleti#4)  JOSSEF » 25 Haz 2020 13:27

dosyayı yükledim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
JOSSEF
Yeni Başlamış
 
Kayıt: 20 Haz 2020 09:02
Meslek: ESNAF
Yaş: 39
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

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

Cevap: VERİ alma

İleti#5)  Miraç CAN » 25 Haz 2020 14:20

Bir sorun yok çalışıyor,
Sayfadaki veri/formüllerde hata oluşunca, hatayı TextBox'a yazamaz ve hata verir.
Bunun önüne geçebilmek için, TextBox'a atadığınız değeri text olarak alırsanız, sayfada ki hata içeriğini görebilirsiniz.

Hata içeren bir satır kodu girip, aşağıda ki düzenlemeyi yaptığınızda daha net görebilirsiniz.
TextBox3.Text = s1.Cells(sat, "I").Text
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: VERİ alma

İleti#6)  JOSSEF » 25 Haz 2020 22:14

Miraç CAN yazdı:Aradığınız değeri bulamadığı için veya tür uyuşmazlığı olduğundan hata veriyordur.

Peki aradığı değeri bulamadıysa veya tür uyuşmazlığı var ise hata vermesi yerine TextBox3 de "hiç alım yapılmamış" şeklinde mesaj yazmasını nasıl sağlarız.
Kullanıcı avatarı
JOSSEF
Yeni Başlamış
 
Kayıt: 20 Haz 2020 09:02
Meslek: ESNAF
Yaş: 39
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: VERİ alma

İleti#7)  Miraç CAN » 26 Haz 2020 08:05

Kod: Tümünü seç
Private Sub ListBox1_Change()
If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")


Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
On Error Resume Next
If IsError(WorksheetFunction.Match(ListBox1.Value, s1.Range("b1:b" & son), 0)) Then
    TextBox3.Text = "Bulunamadı.": Exit Sub
Else
    sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("b1:b" & son), 0)
End If
If IsError(s1.Cells(sat, "I")) Then TextBox3.Text = "Hiç alım yapılmamış." Else TextBox3.Text = s1.Cells(sat, "I")
Err.Clear
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: VERİ alma

İleti#8)  JOSSEF » 26 Haz 2020 09:21

Miraç CAN yazdı:
Kod: Tümünü seç
Private Sub ListBox1_Change()
If IsNull(ListBox1.Value) = True Then TextBox2.Text = "": Exit Sub '<-------------------

Set s1 = Sheets("SAHİBİNDEN")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("A1:A" & son), 0)
TextBox2.Text = s1.Cells(sat, "B")


Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
On Error Resume Next
If IsError(WorksheetFunction.Match(ListBox1.Value, s1.Range("b1:b" & son), 0)) Then
    TextBox3.Text = "Bulunamadı.": Exit Sub
Else
    sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("b1:b" & son), 0)
End If
If IsError(s1.Cells(sat, "I")) Then TextBox3.Text = "Hiç alım yapılmamış." Else TextBox3.Text = s1.Cells(sat, "I")
Err.Clear
End Sub


Teşekkür ederim.
Kullanıcı avatarı
JOSSEF
Yeni Başlamış
 
Kayıt: 20 Haz 2020 09:02
Meslek: ESNAF
Yaş: 39
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Google Adsense [Bot] ve 2 misafir

Bumerang - Yazarkafe