Hatayı düzeltebilirmisiniz?

[rerod]

Merhabalar VBA dan pek anlamıorum aşağıdaki hataları düzeltebilirseniz birde yeşil yazılar konusunda yardımcı olursanız sevinirim...gerekirse ayrıntı verebilirim ama umarım bu kadarı yeterli olur..


Private Sub CommandButton2_Click()
Dim c As Range
Dim IT As String
Dim firstadress
Dim satir As Integer

With Sheets("sheet1").Range("Q:S")
Set c = .Find(IT, LookIn:=xlValues, lookat:=xlPart)
'IT yerine koyacağımız bir textboxa yazdığımız değerin yazılmasını istiyoruz '
If Not c Is Nothing Then
firstadress = c.Address
Do
c.Now = IT
For i = 1 To 100
Sheets ("sheet2")Cells(satir, i).Value
next=sheets.("sheet1")cells (c.Row,i).value
Set c = .FindNext(c)
loop while not c is nothing and
c.Address < > firstadress

End If
End With

 

[Tarkan VURAL]

Sheets ("sheet2")Cells(satir, i).Value
next=sheets.("sheet1")cells (c.Row,i).value
Set c = .FindNext(c)
loop while not c is nothing and
c.Address < > firstadress
End If
End With

Noktalar yanlış yerlerde.

sheets("sheet1").cells (c.Row,i).value

next=sheets("sheet1").cells(c.Row,i).value

loop while not c is nothing and c.Address < > firstadress

şeklinde deneyiniz.

IT değişkeni için kod boluğunun başında
IT = TextBox1.Value tanımlayabilirsiniz.

Yahut
Set c = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
c.Now = TextBox1.Value
olarak tanımlamalar yapabilirsiniz.

Bir de sheets("sheet... tanımlarınızda sayfa adlarının varlığı önemli, bunu da göz ardı etmeyin. Olmayan sayfada veri arayamaz, kod ne yapacağını bilemez. Bu da hata üretebilir.

 

[rerod]

next ten sonra gelen "=" işaretini hatalı gösteriyor neden olabilir acaba

 

[rerod]

next ten sonra gelen "=" işaretini hatalı gösteriyor neden olabilir acaba

Noktalar yanlış yerlerde.

sheets("sheet1").cells (c.Row,i).value

next=sheets("sheet1").cells(c.Row,i).value

loop while not c is nothing and c.Address < > firstadress

şeklinde deneyiniz.

IT değişkeni için kod boluğunun başında
IT = TextBox1.Value tanımlayabilirsiniz.

Yahut
Set c = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
c.Now = TextBox1.Value
olarak tanımlamalar yapabilirsiniz.

Bir de sheets("sheet... tanımlarınızda sayfa adlarının varlığı önemli, bunu da göz ardı etmeyin. Olmayan sayfada veri arayamaz, kod ne yapacağını bilemez. Bu da hata üretebilir.

 

[Tarkan VURAL]

Yanlış yazmışım
Eşittiri ( = ) silin next 'ten sonraki devam eden kodlamayı bir alt satıra atın

 

[rerod]

teşekkür ederim ancak "object doesnt support this property or method" uyarısı çıkıyor .. kodun son hali aşağıdaki gibi oldu eğer neden çalışmadığı konusunda bi fikriniz yoksa örnek dosya ekleyip ayrıntılı olarak anlatmaya çalışacam yardımınız için tekrr teşekkürler...


Private Sub CommandButton2_Click()
Dim c As Range

Dim firstadress
Dim satir As Integer

With Sheets("data").Range("Q:S")

Set c = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)


If Not c Is Nothing Then
firstadress = c.Address
Do
c.Now = TextBox1.Value

For i = 1 To 100 ' 100 yerine ne yazılmalı? '
Sheets("sonuc").Cells(satir, i).Value

Next

Sheets("data").Cells(c.Row, i).Value


Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstadress


End If
End With

 

[Tarkan VURAL]

Nesne bu yöntemi desteklemiyor gibi bir hata almışsınız. Örneksiz yorumlamak zor.

 

[Orion1]

Find komutu arama içindeki birleştirilmiş hücreler vrasa bu yüzdende hata alıyor olabilirsiniz.find komutu birleştirilmiş hücrelerde hata veriyor.

 

[rerod]

yardımlarınız için teşekkürler ...kodları aşağıdaki gibi değiştirerek sorunu hallettik



Private Sub CommandButton2_Click()
Dim c As Range

Dim firstadress
Dim satir As Integer

Sheets("sonuc").Cells.ClearContents
Sheets("data").Rows(2).Copy
Sheets("sonuc").Select
Sheets("sonuc").Cells(1, 1).Select
ActiveSheet.Paste
satir = 2
With Sheets("data").Range("Q:S")

Set c = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
'IT yerine koyacağımız bir textboxa yazdığımız değerin yazılmasını istiyoruz '
If Not c Is Nothing Then
firstadress = c.Address
Do
Sheets("data").Rows(c.Row).Copy
Sheets("sonuc").Select
Sheets("sonuc").Cells(satir, 1).Select
ActiveSheet.Paste
satir = satir + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstadress
End If
End With