Çözüldü vba farklı sayfadaki veriyi sorgulama

Merhaba.
Resimdeki gibi yapıştırın kodu.




HTML:

Refaz' Alıntı:

Merhaba.
Resimdeki gibi yapıştırın kodu.

Ekli dosyayı görüntüle 21582


HTML:

C#: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

hocam kod çalışmıyor. ben yanlış anlatmış olabilirim. Sipariş Girişinde / Yeni kayıt butonuna basıldıktan sonra açılan Sipariş Girişi penceresinde tüm kayıtlar bittik sonra KAYDET deyince " Araç Listesi Textbox4 " daki ürün hazır kumaşlar sayfasından varsa. bilgi amaçlı mesaj versin.

İlk mesajınızda textbox geçmiyor.Listviewde hangisi seçildiyse ona göfe yapmıış.Ufak değişiklik olacak kodda sadece.

Merhaba.

Refaz' Alıntı:

Resimdeki gibi yapıştırın kodu.

Ekli dosyayı görüntüle 21582


HTML:

C#: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

HOCAM ben yanlış atlattım. SİPARİŞ GİRİŞİ penceresinde sarı işeratli yerde sorgulama yapmak istiyorum. tüm bilgileri girdikten sonra KAYDET dedikten sonra textbox4 de girilen bilgi Hazır Kumaşlar sayfasında varsa. sadece bilgi msj versin. ama yinede kaydetsin.

Private Sub Kaydet_Click()
If TextBox3.Value = "" Then
MsgBox "Lütfen MÜŞTERİ İSMİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox4.Value = "" Then
MsgBox "Lütfen ARAÇ İSMİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox5.Value = "" Then
MsgBox "Lütfen ORTA KUMAŞ BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox6.Value = "" Then
MsgBox "Lütfen KENAR KUMAŞ BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox7.Value = "" Then
MsgBox "AÇIKLAMA BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox9.Value = "" Then
MsgBox "Lütfen TESLİM TARİHİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox11.Value = "" Then
MsgBox "Lütfen KARGO BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox17.Value = "" Then
MsgBox "Lütfen ÖDEME ŞEKLİNİ Giriniz...", vbExclamation, ""
Exit Sub

If TextBox18.Value = "" Then
MsgBox "Lütfen PAZARLAMCI ADINI Giriniz...", vbExclamation, ""
Exit Sub
End If
End If

Ekli dosyayı görüntüle 21582





HTML:

On Error Resume Next
sor = MsgBox("Kaydedilsin mi?", vbYesNo + vbDefaultButton1 + vbQuestion, "KAYDET")
If sor = vbNo Then Exit Sub
Set syf = Sheets("Sipariş Listesi")

For I = 1 To SiparisGirisi.ListView1.ListItems.Count
If SiparisGirisi.ListView1.ListItems(I).Checked Then sat = I + 1: Exit For
Next I

If sat = Empty Then MsgBox "Lütfen kayıt yapmak istediğiniz satırı seçiniz...", vbExclamation, "ExcelCozum.com": Exit Sub
TextBox1 = sat - 2
If SiparisGirisi.ListView1.ListItems(I) <> Empty Then
sor = MsgBox("Listede seçili olan " & sat - 1 & ". satırın sonrasına eklensinsin mi?", vbYesNo + vbDefaultButton1 + vbQuestion, "KAYDET")
If sor = vbNo Then Exit Sub
sat = sat
syf.Rows(sat).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
'syf.Cells(sat, 1).Formula = "=IF(B" & sat & "="""","""",row()-2)"
syf.Cells(sat, 1).Formula = "=Row()-1"
For m = 2 To 18
syf.Cells(sat, m) = Controls("TextBox" & m)
Next m
SiparisGirisi.SipListele
ThisWorkbook.Save
MsgBox "Kayıt yapıldı", vbInformation, "ExcelCozum.com"
Unload Me

End Sub

hoca kodu kaydet butonun koydum hata veriyor

Private Sub Kaydet_Click()
If TextBox3.Value = "" Then
MsgBox "Lütfen MÜŞTERİ İSMİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox4.Value = "" Then
MsgBox "Lütfen ARAÇ İSMİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox5.Value = "" Then
MsgBox "Lütfen ORTA KUMAŞ BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox6.Value = "" Then
MsgBox "Lütfen KENAR KUMAŞ BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox7.Value = "" Then
MsgBox "AÇIKLAMA BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox9.Value = "" Then
MsgBox "Lütfen TESLİM TARİHİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox11.Value = "" Then
MsgBox "Lütfen KARGO BİLGİSİNİ Giriniz...", vbExclamation, ""
Exit Sub
End If

If TextBox17.Value = "" Then
MsgBox "Lütfen ÖDEME ŞEKLİNİ Giriniz...", vbExclamation, ""
Exit Sub

If TextBox18.Value = "" Then
MsgBox "Lütfen PAZARLAMCI ADINI Giriniz...", vbExclamation, ""
Exit Sub
End If
End If

Ekli dosyayı görüntüle 21582





HTML:

On Error Resume Next
sor = MsgBox("Kaydedilsin mi?", vbYesNo + vbDefaultButton1 + vbQuestion, "KAYDET")
If sor = vbNo Then Exit Sub
Set syf = Sheets("Sipariş Listesi")

For I = 1 To SiparisGirisi.ListView1.ListItems.Count
If SiparisGirisi.ListView1.ListItems(I).Checked Then sat = I + 1: Exit For
Next I

If sat = Empty Then MsgBox "Lütfen kayıt yapmak istediğiniz satırı seçiniz...", vbExclamation, "ExcelCozum.com": Exit Sub
TextBox1 = sat - 2
If SiparisGirisi.ListView1.ListItems(I) <> Empty Then
sor = MsgBox("Listede seçili olan " & sat - 1 & ". satırın sonrasına eklensinsin mi?", vbYesNo + vbDefaultButton1 + vbQuestion, "KAYDET")
If sor = vbNo Then Exit Sub
sat = sat
syf.Rows(sat).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
'syf.Cells(sat, 1).Formula = "=IF(B" & sat & "="""","""",row()-2)"
syf.Cells(sat, 1).Formula = "=Row()-1"
For m = 2 To 18
syf.Cells(sat, m) = Controls("TextBox" & m)
Next m
SiparisGirisi.SipListele
ThisWorkbook.Save
MsgBox "Kayıt yapıldı", vbInformation, "ExcelCozum.com"
Unload Me
End Sub

YeniKayıt formundaki
Private Sub CommandButton2_Click() kodunun altına alttaki kodu ekleyin.



HTML:

Refaz' Alıntı:

YeniKayıt formundaki
Private Sub CommandButton2_Click() kodunun altına alttaki kodu ekleyin.


Ekli dosyayı görüntüle 21600
HTML:

C#: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Refaz hocam çok güzel olmuş. biraz deneme yaptım beceremedim. hazır kumaşlar sayfasındaki A-B-C-D hücrelerindeki bilgileri mesaj görebilirmiyim

Eğer varsa ve olanın satırındakilermi mesaja gelecek?

evet hocam

Refaz Hocam çok teşekkür ederim ellerinize sağlık. Tam istediğim buydu

Rica ederim kolay gelsin.