aliozturk55
Altın Üye
- Katılım
- 23 Temmuz 2019
- Mesajlar
- 37
- Excel Vers. ve Dili
- İş Office 2010
- Altın Üyelik Bitiş Tarihi
- 01-10-2025
Merhabalar,
aşağıdaki çalışma kitabı içindeki tüm sayfalardaki hücrelerde arama yapan bir kod var. bunu sayfa ismi yazarak tek bir sayfa da arama yaptırabilir miyiz.
Dim sayfa As Worksheet, Bul As Range, Say As Integer
For Each sayfa In ThisWorkbook.Worksheets
Set Bul = sayfa.Cells.Find(ComboBox1, xlWhole)
If Not Bul Is Nothing Then
Bul.Offset(0, 1) = TextBox4
Bul.Offset(0, 2) = CDbl(TextBox1)
Bul.Offset(0, 3) = TextBox5
Bul.Offset(0, 4) = CDbl(TextBox2)
Bul.Offset(0, 5) = TextBox6
Bul.Offset(0, 6) = CDbl(TextBox3)
Say = Say + 1
End If
Next
aşağıdaki çalışma kitabı içindeki tüm sayfalardaki hücrelerde arama yapan bir kod var. bunu sayfa ismi yazarak tek bir sayfa da arama yaptırabilir miyiz.
Dim sayfa As Worksheet, Bul As Range, Say As Integer
For Each sayfa In ThisWorkbook.Worksheets
Set Bul = sayfa.Cells.Find(ComboBox1, xlWhole)
If Not Bul Is Nothing Then
Bul.Offset(0, 1) = TextBox4
Bul.Offset(0, 2) = CDbl(TextBox1)
Bul.Offset(0, 3) = TextBox5
Bul.Offset(0, 4) = CDbl(TextBox2)
Bul.Offset(0, 5) = TextBox6
Bul.Offset(0, 6) = CDbl(TextBox3)
Say = Say + 1
End If
Next