Sayfalarda arama..

[Ridan]

Slm,

TextBox2.Value = Cells.Find(TextBox1, Activecell)

Yukarıdaki kod ile TextBox1'deki değeri TextBox2'ye getirmek istiyorum, ancak olmadı. TextBox1'deki değer tüm sayfalarda aranıp, bulunduğunda kendisi değil hemen sağındaki değer TextBox2'ye atansın. O anki aktif sayfadan ayrılmadan değer bulunupTextBox2'ye atanacak.

(TextBox1 ile aradığım değer bir kitap ve bu kitabın bulunduğu hücrenin sağındaki hücrede fiyatı yazıyor. )

 

[Husgvarna]

Aranacak sayfalar ve sütunları belirtmemişsiniz ama aşağıdaki kod işinize yarayabilir.

 Sub ara()
For a = 1 To ThisWorkbook.Sheets.Count
Set d = Sheets(a).Cells.Find(TextBox1, ActiveCell)
If Not d Is Nothing Then TextBox2 = d.Offset(0, 1)
Next
End Sub

 

[Ridan]

Çok teşekkürler. Kod işimi gördü.