For döngüsünde hata

[gurcan21]

Arkadaşlar merhaba,

Aşağıdaki kod uzunca bir kodun bir parçası. GÖRÜŞ isimli bir excel dosyam var. Bu sayfa ile işlem yapacak olan kod aşağıdaki gibi:

Private Sub Command8_Click()
Dim c As Range, adr As Variant, sonchr As Range, d As Integer
Sheets("GÖRÜŞ").Select
With Range("A:A")
sat = 0
Set sonchr = .Cells(.Cells.count)
Set c = .Find(TextBox2.Value, sonchr, xlValues, xlWhole)
If Not c Is Nothing Then
adr = c.Address
Do
If Cells(c.Row, "B") = TextBox6.Value And Cells(c.Row, "D") = 1 Then sat = c.Row
k = Sheets("GÖRÜŞ").Cells(sat, "C").Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adr
If sat = 0 Then sat = "Bulunamadı"
MsgBox "Satır Numarası:" & sat, , ""
End If
End With
Set sonchr = Nothing: Set c = Nothing
UserForm18.Hide
UserForm25.Show
For d = sat - k + 1 To sat
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value) = Sheets("GÖRÜŞ").Cells(d, "E").Value Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 10) = Sheets("GÖRÜŞ").Cells(d, "F")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 20) = Sheets("GÖRÜŞ").Cells(d, "G")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 30) = Sheets("GÖRÜŞ").Cells(d, "I")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 40) = Sheets("GÖRÜŞ").Cells(d, "J")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 50) = Sheets("GÖRÜŞ").Cells(d, "K")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 60) = Sheets("GÖRÜŞ").Cells(d, "M")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 70) = Sheets("GÖRÜŞ").Cells(d, "N")
Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value + 80) = Sheets("GÖRÜŞ").Cells(d, "O")
Next
End Sub

Tüm değişkenler tanımlanmasına rağmen (sat ve k Public olarak) Kod kırmızı işaretli yerde hata veriyor. Hata olarak da could not find the specified object deniyor. Hata nerede anlamadım bir türlü. Yardımcı olursanız sevinirim.

 

[hımmmmmmmm]

Controls("UserForm25.TextBox" & Sheets("GÖRÜŞ").Cells(d, "C").Value)

burada & den sonra gelen kısım yani c sütunundaki değeri alıp textboxun numarası yapmak istiyosun... = sonraki kısımda ise o numaradaki textboxa atama yapıyosun...

aldığın değere göre textbox bulunmuyor...

form veya başka yerde, textboxların her neredeyse texboxlarını iyi incele numaralarına göz gezdir... sonra o değerleri c sutununda aynı olmasını sağla...