HÜCRE BAŞVURUSU İÇİN MAKRO Konusunda yardımlarınızı bekliyorum

[karagöz55]

DEĞERLİ FORUM ÜYELERİ ARKADAŞLAR
Uzun zamandır formunuzu takip ediyorum. Bazı bilgi alış verişlerimiz oldu. Gerçekten çok aktif bir forum.Kendi adıma Çok şey öğrendim. Amatörce bir şeyler yapmaya çalışıyorum, ancak takıldığım noktalarda yardım alabilceğim kimse yok Bu sebeple forumdaki pek çok bilgiden yararlandım. Bu sefer yine küçük bir kaç sorum olacak. Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi bildiririm.
SORU 1:
Userformda veri girişi için oluşturduğum pencerelerde ilk satırda "ESAS NO" var
Buraya yazdığım rakama göre ANA SAYFADA "A" sütununda yazan rakama göre ilk hücrenin seçilerek diğer verilerin de takip eden hücrelere yerleşmesin istiyorum ancak başaramadım.
Gerçi geçen gün EVREN GİZLEN BEY şöyle bir formül vermişti
Sheets("ANA SAYFA").Cells(Range("A1") + 3, "N").Value = Range("I7").Value

Bu formülle diğer sayfalarda çalışıyorum. Herhangi bir problem yok ama bu formülü USER FORM da oluşturduğum pencerelerde BAŞVURU ADRESİ OLARAK ESAS NO texboxundaki verinin almasını istiyorum
MESELA ESAS NO TexBox'una 223 dediğimiz zaman verilerin o satırdan başlayan diğer hücrelere yerleşmesini istiyorum

2. SORUM:
Hazırladığım bu USERFORM da nasıl bir değişiklik yapmalıyım ki bu formu aynı zamanda aradığım dosya bilgilerini kontrol etmek ve gerektiği zaman düzeltmek için kullanabileyim

3. SORUM:
Formda giriş yaparken bazı kutuları boş bırakıyorum. Ama sayfada o kutuya karşı gelen hücrede daha önce veri varsa bu sefer eski veriyi siliyor. Bunu nasıl önleriz

 

[Ferhat Pazarçevirdi]

KayıtEkle adlı Userform'u kodlarında aşağıdaki gibi değişiklikler yapıldı.

Yeni Eklenen Prosedürler :

Private Sub EsasNo_Change()
Dim sh As Worksheet
Dim bul As Range
Call Box_Temizle
Set sh = Sheets("ANA SAYFA")
Set bul = sh.Columns(1).Find(Trim(EsasNo.Text), Lookat:=xlWhole)
If Not bul Is Nothing Then
    SAdSoyad = sh.Cells(bul.Row, 3)
    SAdres = sh.Cells(bul.Row, 4)
    SIlce = sh.Cells(bul.Row, 5)
    SIl = sh.Cells(bul.Row, 6)
    IcraNo = sh.Cells(bul.Row, 7)
    IcraDNo = sh.Cells(bul.Row, 8)
    Musteki = sh.Cells(bul.Row, 9)
    MVekili = sh.Cells(bul.Row, 10)
    MVekilAdres = sh.Cells(bul.Row, 11)
    Hakim = sh.Cells(bul.Row, 12)
    HSicil = sh.Cells(bul.Row, 13)
    DurusmaTarihi = sh.Cells(bul.Row, 14)
    KararTarihi = sh.Cells(bul.Row, 15)
    KararNo = sh.Cells(bul.Row, 16)
    TCKimlikNo = sh.Cells(bul.Row, 17)
    BabaAdi = sh.Cells(bul.Row, 18)
    AnaAdi = sh.Cells(bul.Row, 19)
    DogumTarihi = sh.Cells(bul.Row, 20)
    NufusIl = sh.Cells(bul.Row, 21)
    NufusIlce = sh.Cells(bul.Row, 22)
    NufusMahKoy = sh.Cells(bul.Row, 23)
End If
Set bul = Nothing
Set sh = Nothing
End Sub
Private Sub Box_Temizle()
Dim ctrl As Control
For Each ctrl In KayıtEkle.Controls
    If TypeOf ctrl Is TextBox Then: ctrl.Text = Empty
Next
End Sub

Değiştirilen Prosedürler:

Private Sub CommandButton2_Click()
Dim sh As Worksheet
Dim bul As Range
Set sh = Sheets("ANA SAYFA")
Set bul = sh.Columns(1).Find(Trim(EsasNo.Text), Lookat:=xlWhole)
If bul Is Nothing Then
    MsgBox "Bu isimde herhangi birkayıt yok", vbCritical, "UYARI"
    GoTo f1
Else
    sh.Cells(bul.Row, 3) = SAdSoyad
    sh.Cells(bul.Row, 4) = SAdres
    sh.Cells(bul.Row, 5) = SIlce
    sh.Cells(bul.Row, 6) = SIl
    sh.Cells(bul.Row, 7) = IcraNo
    sh.Cells(bul.Row, 8) = IcraDNo
    sh.Cells(bul.Row, 9) = Musteki
    sh.Cells(bul.Row, 10) = MVekili
    sh.Cells(bul.Row, 11) = MVekilAdres
    sh.Cells(bul.Row, 12) = Hakim
    sh.Cells(bul.Row, 13) = HSicil
    sh.Cells(bul.Row, 14) = DurusmaTarihi
    sh.Cells(bul.Row, 15) = KararTarihi
    sh.Cells(bul.Row, 16) = KararNo
    sh.Cells(bul.Row, 17) = TCKimlikNo
    sh.Cells(bul.Row, 18) = BabaAdi
    sh.Cells(bul.Row, 19) = AnaAdi
    sh.Cells(bul.Row, 20) = DogumTarihi
    sh.Cells(bul.Row, 21) = NufusIl
    sh.Cells(bul.Row, 22) = NufusIlce
    sh.Cells(bul.Row, 23) = NufusMahKoy
End If
f1:
Set bul = Nothing
Set sh = Nothing
End Sub

 

[karagöz55]

SAYIN FERHAT PAZARÇEVİRDİ
Bu pazar günü, hafta tatili olmasın rağmen çok karışık bir formul olan yukarıdaki bilgilerinizden dolayı sizlere çok teşekkür ederim.
Tahminimin de ötesinde olmuş tek kelime ile harika
TEKRAR TEŞEKKÜRLER