• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım InputBox & Bul Düğmesi

stavukcuoglu

Yeni Üye
Katılım
13 Nis 2020
Mesajlar
4
En iyi yanıt
0
Puanları
1
Yaş
32
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.


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
 

OmerFaruk72

Yeni Üye
Katılım
2 May 2020
Mesajlar
8
En iyi yanıt
0
Puanları
3
Yaş
51
Konum
Ankara
Ad Soyad
Ömer Faruk Çakmanus
Office Vers.
MSO 2016 TR, 64bit
Worksheets("Veriler").Range("A:A").Find(aranan).Select

Yerine aşağıdaki denermisiniz.
Worksheets("Veriler").Select Worksheets("Veriler").Range("A:A").Find(aranan).Select
 

stavukcuoglu

Yeni Üye
Katılım
13 Nis 2020
Mesajlar
4
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
İstanbul
Ad Soyad
Semih Tavukçuoğlu
Worksheets("Veriler").Range("A:A").Find(aranan).Select

Yerine aşağıdaki denermisiniz.
Worksheets("Veriler").Select Worksheets("Veriler").Range("A:A").Find(aranan).Select

Teşekkürler farklı bir kod ile sorunu çözümledim. Fakat
Bir sorum daha var ama baya bir kaynak aradım fakat oturtturamadım formülü bir türlü.
olusturdugum tablodakı verılere genelliste ismini tanımladım.
Listboxta bunun gözükmesini istiyorum . buraya kadar bir sorunum yok. fakat listem sürekli güncelleneceği için dinamik bir liste oluşturmak istiyorum. Offset formülüyle internetteki araştırmalarımda birkaç çözüm buldum ama formül hep hata verdi.
Yardımcı olabilir misiniz?
 

stavukcuoglu

Yeni Üye
Katılım
13 Nis 2020
Mesajlar
4
En iyi yanıt
0
Puanları
1
Yaş
32
Konum
İstanbul
Ad Soyad
Semih Tavukçuoğlu
Kod:
genelliste.RowSource = "Veriler!A2:AJ1500"
şöyle bir kod kullandım. genelliste listboxımın adı. normalde şuan 3 satır veri var mesela. ancak 4 gırdıgımdede dınamık bır tablo oldugu ıcın 4. satırıda ıcıne alsın ıstıyorum lıstbox. ancak beceremedıgım ıcın 1500 satırlık tabloyu attırdım 3 satırın dısındakıler bos gozukuyor ve asagıya dogru suruklememız gerekıyor. tablom ust satır bılgısı var verıler 2. satırda baslıyor.
 
Üst Alt