BUL makrosu ile reçete çağırmak

[slcflz]

Merhaba arkadaşlar, dosyam ektedir. İlgili AÇıklamam içinde mevcut. Kısaca özetlersem sorunumu ; Bir adet reçete kaydettiğim userfrom var. burda reçeteyi kaydettiğimde reçete sayfasına kayıt yapıyor ancak bu reçeteyi tekrar bul makrosu ile ilgili userforma aldırmak istiyorum bunu yapamadım acil yardıma ihtiyacım var tşkler

 

[slcflz]

şu dosyaya bir el atacak yok mu değerli arkadaşlar

 

[slcflz]

arkadaşlar acil yardımmm

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili forumda o kadar çok örnek var ki arama yapsaydınız kesin ulaşırdınız. Aşağıdaki kodu deneyiniz.

Private Sub CommandButton6_Click()
    Dim BUL As Range, ADRES As String, No As Byte
    
    If TextBox11 = "" Then
        MsgBox "Lütfen reçete adı giriniz !", vbCritical
        TextBox11.SetFocus
        Exit Sub
    End If
    
    No = 1
    
    Set BUL = Sheets("Recete").Range("B:B").Find(TextBox11)
    If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
            Me.Controls("ComboBox" & No) = BUL.Offset(0, 2)
            Me.Controls("TextBox" & No) = BUL.Offset(0, 3)
            No = No + 1
            Me.TextBox14 = BUL.Offset(0, 4)
            Me.TextBox15 = BUL.Offset(0, 5)
            Me.TextBox16 = BUL.Offset(0, 6)
            Me.TextBox17 = BUL.Offset(0, 7)
            Me.TextBox18 = BUL.Offset(0, 8)
        Set BUL = Sheets("Recete").Range("B:B").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        
        MsgBox "Aradığınız kayıt bulunmuştur.", vbInformation
    
    Else
    
        MsgBox "Aradığınız kayıt bulunamamıştır !", vbCritical
    
    End If
    
    Set BUL = Nothing
End Sub

 

[slcflz]

Sayın Korhan Tşkler Forumda ya yanlış arattırdım yada tam bu konuyu anlayamadım. İstediğim buydu ancak sğ taraftaki textboxlara görünüş v.s gibi değerleri getirtmiyor bu kod onun için yapabileceğimiz birşeyler varmıdır tşkler

 

[slcflz]

ALLAH RAZI OLSUM HOCAM TŞKLER .Son birşey sormak istiyorum onuda yaptık mı programım tamamlanıyor. Aynı formda eski reçete güncelle butonu var. Bul makrosu ile çağırdığımız reçeyi değiştirmek istiyorum. İlgili yerleri değiştirdiğimizde eski reçeteyi güncelle dediğimizde onu nasıl yapabiliriz

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[slcflz]

Tşk ederim diğer soruma bakabildiniz mi reçete güncelleme ile ilgili hocam