vba da find fonksiyonu hk.

[Öz1.618]

Merhaba,
Makroda A satırında "Şube Kodu" yazan hücreyi bul ve sağ tarafına yeni bir sütun aç işlemi yaptırmak istiyorum ama yapamadım. yazdığım kod bana kod 91 hatası veriyor. Konu hakkında yardımlarınızı rica ederim.

 

[muratboz06]

Sorunuzdan anladığım Birinci satırda Şube Kodu olan hücreyi bulup sağ tarafına bir sütun eklenmesi.
Öyle ise deneyiniz.

Sub BulveSütunEkle()
    Dim FindString As String
    Dim Rng As Range
    FindString = "Şube Kodu"
    If Trim(FindString) <> "" Then
        With ActiveSheet.Rows(1)
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                Rng.Offset(0, 1).EntireColumn.Insert
            Else
                MsgBox "Şube Kodu bulunamadı."
            End If
        End With
    End If
End Sub

 

[Haluk]

Bakalım, sorudaki "A satırı" ifadesi ile ne demek istenmiş ? ..... 2 No'lu mesajdaki çözüme "Tamam" denirse;"1. Satır" kastedilmiş, yok eğer "Çalışmadı" denirse, "1. Sütun" kastedilmiş demektir ....

.

 

[Öz1.618]

Sorunuzdan anladığım Birinci satırda Şube Kodu olan hücreyi bulup sağ tarafına bir sütun eklenmesi.
Öyle ise deneyiniz.

Sub BulveSütunEkle()
    Dim FindString As String
    Dim Rng As Range
    FindString = "Şube Kodu"
    If Trim(FindString) <> "" Then
        With ActiveSheet.Rows(1)
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                Rng.Offset(0, 1).EntireColumn.Insert
            Else
                MsgBox "Şube Kodu bulunamadı."
            End If
        End With
    End If
End Sub

çok teşekkür ederim. İşe yaradı.

 

[Öz1.618]

Bakalım, sorudaki "A satırı" ifadesi ile ne demek istenmiş ? ..... 2 No'lu mesajdaki çözüme "Tamam" denirse;"1. Satır" kastedilmiş, yok eğer "Çalışmadı" denirse, "1. Sütun" kastedilmiş demektir ....

.

1. satır demek istedim yahu. hay allah ya : ))))