Excel'de belirli bir değeri bulana kadar satırlar arasında nasıl gezinirim?
Bazı durumlarda, bir sayfada belirli bir değeri bulana kadar satırları tek tek incelemek isteyebilirsiniz. İşte tam böyle bir senaryoda, verilerde o değeri bulana kadar gezinmenize yardımcı olacak bir makro kodu!
Belirli bir değere kadar dolaşma
Belirli bir değere kadar dolaşma
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini etkinleştirin.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu boş Modül penceresine yapıştırın.
VBA: Belirli bir değere kadar satırlarda dolaşma
Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
Dim fStr As String
Dim strActAddress As String
Dim fbool As Boolean
Dim cnt As Long, cntRow As Long
Dim xRg As Range, yRg As Range, zRg As Range
fbool = False
strActAddress = ""
cnt = 0
On Error Resume Next
Set zRg = ActiveSheet.UsedRange
cntRow = zRg.Rows.Count
Set xRg = Application.InputBox _
(Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
fStr = Application.InputBox _
(Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Row > cntRow Then
MsgBox "Value not found ", vbInformation, "Kutools for Excel"
Application.ScreenUpdating = True
Exit Sub
End If
If yRg.Value2 = fStr Then
Application.ScreenUpdating = True
yRg.Activate
fbool = True
strActAddress = yRg.Address
MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
Exit Sub
Else
cnt = cnt + 1
End If
Next yRg
If cnt = xRg.Count Then
MsgBox "Value not found ", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. F5 tuşuna basın; dolaşmak için bir sütun seçmenizi sağlayan bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Tamam düğmesine tıklayın ve ardından açılan ikinci iletişim kutusuna bulmak istediğiniz metni yazın. Ekran görüntüsüne bakın:
5. Tamam'a tıklayın. Belirtilen değer bulunana kadar seçim içinde gezinilecektir.
Not: Eşleşen bir değer bulunamazsa, eşleşme bulunamadığını bildiren bir iletişim kutusu görüntülenir.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar