f2+Enter makrosu

[emiroglu07]

Sub F2ENTER()
     Dim Alan As Range
     For Each Alan In Range("D2:D250,H2:H250,L2:Q250")
        Alan.Select
        DoEvents
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
    
End Sub

Üstadlar kolay gelsin elimdeki bu f2+enter makrosuna son dolu satıra kadar işlem yapmasını nasıl sağlaya bilirim acaba
son dolu stunun baz alınacağı veri A stunu olacak şekilde yani A stunun son satırı diğerlerininde son satırı olacak
Bunu dememin sebebi diğer stunların kendi içinde boşlukların var olmasından kaynaklı

 

[murat_fidan]

Sub F2ENTER()
     Dim Alan As Range
     For Each Alan In Range("D2:D250,H2:H250,L2:Q250")
        Alan.Select
        DoEvents
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
   
End Sub

Üstadlar kolay gelsin elimdeki bu f2+enter makrosuna son dolu satıra kadar işlem yapmasını nasıl sağlaya bilirim acaba
son dolu stunun baz alınacağı veri A stunu olacak şekilde yani A stunun son satırı diğerlerininde son satırı olacak
Bunu dememin sebebi diğer stunların kendi içinde boşlukların var olmasından kaynaklı

Sub F2ENTER()
    Dim Alan As Range
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For Each Alan In Range("D2:D" & LastRow & ", H2:H" & LastRow & ", L2:Q" & LastRow)
        Alan.Select
        DoEvents
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next
End Sub

 

[emiroglu07]

Murat Fidan üstad çok teşekkür ederim tam olmuş
Peki üstad bir sorum olacak bu stun aralığında
İçinde sadece veri olan hücrere f2+enter yapmak mümkün müdür.
O mako olursa efsane olur çunkü birçok boş hücreye f2+enter yapmak durumunda kalıyorum

 

[murat_fidan]

siz bu makroyu örneğin A2:S aralığında kullanmak istiyorsunuz diyelim ama arada veri olmayan boş sütunları atlasın sadece dolu olan sütunlarda f2+enter yapsın mı istiyorsunuz

 

[emiroglu07]

Evet üstad aynen onu istiyorum

84i4lb1.JPG

ff

hizliresim.com

ekte resmini paylaştığım sayfadaki yeşil olan stunları örnek gösterebilirim.
dediğiniz gibi Sadece işlem gören hücrelere f2+enter yapacak bir makro

 

[murat_fidan]

bunun için makroda değişikliğe gidilebilir ama her hücrenin dolu olup olmadığını kontrol ettirmek gerekir oda makronun işlem sonucunu uzatabilir. Anladığım kadarı ile siz boş hücreleri doğrudan atlasın direk dolu hücrelere gitsin istiyorsunuz.

 

[emiroglu07]

bunun için makroda değişikliğe gidilebilir ama her hücrenin dolu olup olmadığını kontrol ettirmek gerekir oda makronun işlem sonucunu uzatabilir. Anladığım kadarı ile siz boş hücreleri doğrudan atlasın direk dolu hücrelere gitsin istiyorsunuz.

evet üstad

 

[murat_fidan]

evet üstad

Sub f2enter()

    Dim ws As Worksheet
    Dim Alan As Range
    Dim LastRow As Long

    Set ws = ThisWorkbook.Worksheets("Sayfa1")

  
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    Application.ScreenUpdating = False


    For Each Alan In ws.Range("D2:D" & LastRow & ", H2:H" & LastRow & ", L2:Q" & LastRow)
    
        If Not IsEmpty(Alan.Value) Then
             Alan.Formula = Alan.Formula
        End If
    Next Alan

    Application.ScreenUpdating = True
MsgBox "işlem tamam"

End Sub

 

[emiroglu07]

elinize sağlık üstad çok güzel olmuş teşekkürler