Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.