stavukcuoglu
Yeni Üye
- Katılım
- 13 Nis 2020
- Mesajlar
- 4
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 33
- Konum
- İstanbul
- Ad Soyad
- Semih Tavukçuoğlu
Merhaba arkadaşlar userform'u ma bul düğmesi ekledim ve düğmeye tıkladığımda inputbox açılıyor, kayıt numarası girilerek "Veriler" sayfasında yer alan verileri tarıyor. Fakat userform açılış sayfası "Ana Sayfa". Ne yaptıysan bul dugmesını verıler sayfasında arattıramadım.
Ancak userformu "Veriler" sayfasında açarsam bul komutu çalışıyor hiçbir sıkıntı yok. Ancak userform Ana sayfada koydugum buton vasıtasıyla calısacak. Bu nedenle Ana sayfada yer alan butonla calıstırdıgımda userformu bul komutu calısmıyor daha dogrusu kayıt bulamıyor.
Kodlarım aşağıdadır.
Ancak userformu "Veriler" sayfasında açarsam bul komutu çalışıyor hiçbir sıkıntı yok. Ancak userform Ana sayfada koydugum buton vasıtasıyla calısacak. Bu nedenle Ana sayfada yer alan butonla calıstırdıgımda userformu bul komutu calısmıyor daha dogrusu kayıt bulamıyor.
Kodlarım aşağıdadır.
Kod:
Private Sub bul_Click()
Dim aranan, silsatir As Variant
On Error GoTo Bitir
aranan = InputBox("Lütfen revize etmek istediğiniz projenin Kayıt Numarasını giriniz.", "Proje Revize", "")
Worksheets("Veriler").Range("A:A").Find(aranan).Select
silsatir = ActiveCell.Row
If aranan = "" Then
MsgBox "Herhangi bir giriş yapmadığınız için proje bilgileri getirilmemiştir.", , "Uyarı!"
Else
kayitno.Value = Worksheets("Veriler").Cells(silsatir, 1)
projekaynagi.Value = Worksheets("Veriler").Cells(silsatir, 2)
yonetici.Value = Worksheets("Veriler").Cells(silsatir, 3)
yetkili.Value = Worksheets("Veriler").Cells(silsatir, 4)
ilgilibayi.Value = Worksheets("Veriler").Cells(silsatir, 5)
bolge.Value = Worksheets("Veriler").Cells(silsatir, 6)
tarih.Value = Worksheets("Veriler").Cells(silsatir, 7)
sonuclanmatarihi.Value = Worksheets("Veriler").Cells(silsatir, 9)
anaisveren.Value = Worksheets("Veriler").Cells(silsatir, 10)
projeadi.Value = Worksheets("Veriler").Cells(silsatir, 11)
satisnoktasi.Value = Worksheets("Veriler").Cells(silsatir, 12)
projeil.Value = Worksheets("Veriler").Cells(silsatir, 13)
projedurumu.Value = Worksheets("Veriler").Cells(silsatir, 14)
kacirilmasebebi.Value = Worksheets("Veriler").Cells(silsatir, 15)
urungrubu.Value = Worksheets("Veriler").Cells(silsatir, 16)
urunadi.Value = Worksheets("Veriler").Cells(silsatir, 17)
miktar.Value = Worksheets("Veriler").Cells(silsatir, 18)
birim.Value = Worksheets("Veriler").Cells(silsatir, 19)
kullanilaniskonto.Value = Worksheets("Veriler").Cells(silsatir, 20)
odebirimfiyat.Value = Worksheets("Veriler").Cells(silsatir, 21)
toplamtutar.Value = Worksheets("Veriler").Cells(silsatir, 22)
fiyatlandirmasekli.Value = Worksheets("Veriler").Cells(silsatir, 23)
hedeffiyat.Value = Worksheets("Veriler").Cells(silsatir, 24)
rakipfirma1.Value = Worksheets("Veriler").Cells(silsatir, 25)
rakipurun1.Value = Worksheets("Veriler").Cells(silsatir, 26)
rakipfiyat1.Value = Worksheets("Veriler").Cells(silsatir, 27)
rakipfirma2.Value = Worksheets("Veriler").Cells(silsatir, 28)
rakipurun2.Value = Worksheets("Veriler").Cells(silsatir, 29)
rakipfiyat2.Value = Worksheets("Veriler").Cells(silsatir, 30)
rakipfirma3.Value = Worksheets("Veriler").Cells(silsatir, 31)
rakipurun3.Value = Worksheets("Veriler").Cells(silsatir, 32)
rakipfiyat3.Value = Worksheets("Veriler").Cells(silsatir, 33)
kaynakdurumu.Value = Worksheets("Veriler").Cells(silsatir, 34)
kaynakvadesi.Value = Worksheets("Veriler").Cells(silsatir, 35)
MsgBox kayitno.Value & " No'lu " & projeadi.Value & " projenizdeki bilgiler bulunmuştur.", , "Tamamlandı"
End If
Exit Sub
Bitir: MsgBox "Aradığınız Proje bulunamadı. Lütfen geçerli bir proje kayıt numarası girerek tekrar deneyiniz.", vbCritical, "Uyarı!"
End Sub