• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

combobox ile çağrılan veriyi güncelleme

Merhaba, alttaki kodları denermisiniz.

Kod:
Private Sub CommandButton2_Click()

    Set c = Range("a:a").Find(T1, LookIn:=xlValues)
    If Not c Is Nothing Then
    For i = 4 To 10
    Cells(c.Row, i).Value = Controls("t" & i)
    Next i
    Cells(c.Row, 2).Value = T2
    Cells(c.Row, 3).Value = T3
    End If
End Sub
 
İlginiz için teşekkür...
 
Son düzenleme:
Geri
Üst