Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 6 sonuçtan 1 ile 6 arasındakiler gösteriliyor.

Konu: F2+Enter takılma sorunu

  1. #1
    Yeni Üye
    Üyelik tarihi
    Aug 2012
    Mesajlar
    3

    F2+Enter takılma sorunu

    Arkadaşlar merhaba,
    E sütununda (E5:E10000) arasında verilerim var. Buradaki veriler daha az da olabilir.Bu verilere F2 + Enter uygulamak istiyorum fakat aşağıdaki makro çalıştığında E1918 kadar gidiyor ve orada duruyor. Makro ilk boş hücrede durabilir mi ve ilk boş hücreye kadar önceki tüm hücrelere F2+Enter uygulayabilir mi? Yardımlarınızı rica ederim. Teşekkürler.

    Kod:
    Sub F2_Enter()
    For i = 1 To [E65000].End(3).Row
            Cells(i, "E").Select
        SendKeys "{F2}"
        SendKeys "{ENTER}"
     Next i
    End Sub

  2. #2
    Yeni Üye
    Üyelik tarihi
    Aug 2012
    Mesajlar
    3
    Arkadaşlar Merhaba,
    Sizinle çözümü paylaşmak istiyorum.

    1 Select a blank cell and copy it.

    2 Select the cells with the 'dates'.

    3 Goto Paste Special and pick Addition from the operation section.

    4 Format the values as date.

  3. #3
    Üye
    Üyelik tarihi
    Jan 2010
    Nereden
    İstanbul
    Versiyon
    Microsoft Office 2010 Türkçe
    Mesajlar
    72
    Şu kodları bir deneyiniz;

    Kod:
    Sub Evn()
        Dim i As Long
        [E5].Select
        For i = 5 To Range("E10000").End(3).Row
            Application.SendKeys "{F2}"
            Application.SendKeys "{ENTER}"
        Next i
        i = Empty
    End Sub

  4. #4
    Yeni Üye
    Üyelik tarihi
    Aug 2012
    Mesajlar
    3
    Osman Bey merhaba,
    Yardımlarınız için çok teşekkür ederim. Kodu denedim çalışıyor fakat biraz yavaş çalışıyor nedeni ne olabilir acaba?

  5. #5
    Yeni Üye
    Üyelik tarihi
    Dec 2015
    Mesajlar
    3
    merhaba, konuyu tekrar canlandırmak gerekirse


    Kod:
    Sub RefreshCells()
    Dim r As Range, rr As Range
    Set rr = Selection
    For Each r In rr
        r.Select
        Application.SendKeys "{F2}"
        Application.SendKeys "{ENTER}"
        DoEvents
    Next
    End Sub
    kod ile f2+enter yapmaya çalışıyorum olmuyor. manuel f2+enter yaptığımda çalışıyor.

    3000 satır da f2+enter yapmam lazım var mıdır bir kısa yolu. teşekkür ederim.

  6. #6
    Yeni Üye
    Üyelik tarihi
    Aug 2010
    Nereden
    KOCAELİ
    Mesajlar
    13
    Merhaba Erdemy.

    Vermiş olduğun kodlar çalışıyor. Sadece seçim yapman gerekiyor.

    Set rr = Selection ' Bu kısım seçili hÜcreleri değişken olarak atamakta. Bu nedenle F2 , enter yapmak istediğiniz hücreleri seçeceksiniz sonrasında bu kodu çalıştıracaksınız.

    Bu makroyu sıklıkla kullanacaksanız , menüye makro butonu olarak eklemenizi tavsiye ederim.

    Esenlikler dilerim. İyi çalışmalar.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •