hücre içerisinde bir kelimeyi bularak devamında ilk boş hücreye gitmek

[euphrates55]

merhabalar, a sütununda tesis yazan yeri buldurmak ve buna bağlı olarak yine b sütunundaki ilk boş hücreyi buldurmak için ne yapmam gerekir. (a sütununda bulacağı hücrenin birleşik hücre olması farkeder mi bilmiyorum ama birleşik, a dan ı ya kadar. )

 

[turist]

Sayın @firatgunay
Örnek bir excel dosyası ekleyebilirseniz, daha hızlı ve doğru cevap bulabilirsiniz.
Örnek Dosya ekleme hakkında:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/

 

[euphrates55]

https://docs.google.com/file/d/1pNQ...YnhZ0b/edit?usp=docslist_api&filetype=msexcel

 

[turist]

Dosyanızı "erişime açık" yapabilirmisiniz.

 

[euphrates55]

Dosyanızı "erişime açık" yapabilirmisiniz.

yaptım sanırım. iş yerinde tüm yükleme siteleri yasak bizde. 21. yy da üstelik. telefondan da ancak bu kadar yapabildim. şu an açık olması lazım.

 

[Ömer BARAN]

Merhaba, sorunuz pek net değil doğrusu ve sadece SEÇmekten söz ediyorsunuz.

Eğer E12 hücresinde, veri doğrulama => liste özelliği ile TESİS, MAKİNE gibi seçeneklerin tüm listesinden bir seçim yapacaksanız;
yapılan seçime ait bölümdeki ilk boş hücreyi aşağıdaki kod ile (iki seçenek var birini tercih edersiniz) seçili hale getirebilirsiniz.

NOT: Aşağıdaki kod'da mavi veya kırmızı kısmı kullanabilirsiniz, kullanmadığınız kısmı silin.
.

Sub BOS_HUCRE_SEC()
    If WorksheetFunction.CountIf([A:A], [E12]) > 0 Then _
        Cells(Cells(WorksheetFunction.Match([E12], [A:A], 0) + 1, 2).End(xlDown).Row + 1, 2).Activate

    Set bul = Columns("A:I").Find(What:=[E12], After:=[A15], LookAt:=xlWhole, SearchOrder:=xlByRows)
    If Not bul Is Nothing Then Cells(Cells(bul.Row + 1, 2).End(xlDown).Row + 1, 2).Activate
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Her grup için 1000 satır kullanacağınızı varsaydım. Sizin için yeterli değilse kod içindeki 1002 değeriyle oynayabilirsiniz.

Ayrıca başka grubun boş satırını işgal etmemek için başlıklardaki lacivert rengi sorguda kullandım. Buna dikkat ediniz.

Sub Bos_Satir_Bul()
    Dim Aranan As Variant, Bul As Range
   
    Aranan = InputBox("Aradığınız veriyi giriniz...", "ARANAN VERİ")
   
    If Aranan = "" Or Aranan = False Then Exit Sub
   
    Set Bul = Range("A:I").Find(Aranan, , , xlWhole)
    If Not Bul Is Nothing Then
        For X = Bul.Row + 2 To Bul.Row + 1002
            If Cells(X, "B").Interior.ColorIndex <> 49 Then
                If Cells(X, "B") = "" Then
                    Satir = X
                    Exit For
                End If
            End If
        Next
   
        If Satir > 0 Then
            MsgBox "İlk boş satır : " & Satir
            Cells(Satir, "B").Select
        Else
            MsgBox "Boş satır bulunamadı!", vbCritical
        End If
    End If
End Sub

 

[euphrates55]

Merhaba, sorunuz pek net değil doğrusu ve sadece SEÇmekten söz ediyorsunuz.

Eğer E12 hücresinde, veri doğrulama => liste özelliği ile TESİS, MAKİNE gibi seçeneklerin tüm listesinden bir seçim yapacaksanız;
yapılan seçime ait bölümdeki ilk boş hücreyi aşağıdaki kod ile (iki seçenek var birini tercih edersiniz) seçili hale getirebilirsiniz.

NOT: Aşağıdaki kod'da mavi veya kırmızı kısmı kullanabilirsiniz, kullanmadığınız kısmı silin.
.

Sub BOS_HUCRE_SEC()
    If WorksheetFunction.CountIf([A:A], [E12]) > 0 Then _
        Cells(Cells(WorksheetFunction.Match([E12], [A:A], 0) + 1, 2).End(xlDown).Row + 1, 2).Activate

    Set bul = Columns("A:I").Find(What:=[E12], After:=[A15], LookAt:=xlWhole, SearchOrder:=xlByRows)
    If Not bul Is Nothing Then Cells(Cells(bul.Row + 1, 2).End(xlDown).Row + 1, 2).Activate
End Sub

bu şekli ile hiç düşünmemiştim ama süper olmuş, ellerinize sağlık. diğer herkesin de emeğine sağlık. teşekkürler