aktif hücreyi 3 sütun sağa kaydırma

[yozcan5]

Sub Makro1()
'
' Makro1 Makro
'

'

Cells.Find(What:=Range("d8"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select

bu aşamadan sonra mevcut hücreyi 3 sütun sağa kaydırmak için kod ne olmalı. Kusura bakmayın makroya yeni başlıyorum o yüzden.

 

[Muzaffer Ali]

Merhaba.
Birçok yolu var aşağıdaki bunlardan biri.

Sub test()
    Dim Bul As Range
    
    Set Bul = Cells.Find(What:=Range("d8"), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If Bul Is Nothing Then
        MsgBox "Aradığınız bulunamadı"
        Exit Sub
    Else
        Cells(Bul.Row, Bul.Column + 3).Select
    End If
End Sub

 

[yozcan5]

dalgalıkur yardımın için çok teşekkür ederim.
Peki bulma işlemini sadece A sütununda yapmak istersek kod nasıl olmalı

 

[Korhan Ayhan]

Ek bilgi;

VBA tarafında FIND komutu kullanılırken aranan değer bulunamadığında hata almamak için @dalgalikur'un önerdiği gibi kullanmak gerekir.

 

[Muzaffer Ali]

dalgalıkur yardımın için çok teşekkür ederim.
Peki bulma işlemini sadece A sütununda yapmak istersek kod nasıl olmalı

Aşağıdaki gibi olur.

Sub test()
    Dim Bul As Range
    
    Set Bul = range("A:A").Find(What:=Range("d8"), After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If Bul Is Nothing Then
        MsgBox "Aradığınız bulunamadı"
        Exit Sub
    Else
        Cells(Bul.Row, Bul.Column + 3).Select
    End If
End Sub