Enter İşlemi.

[woLwox]

Arkadaşlar Benim Makromda bir dosyadan resim çağırma işlemi yaptırıyorum ama ilgili hücreye ilgili numara yazıldıktan sonra enter işlemi yapıldıgında resim gereken yere yapıştırılıyor.

Fakat benim yazdıgım makroda bu numaraları birdöngü içerisinde otomatik olarak döndürüp ilgili kutuya yazdıgımda enter işlemi yapılmadıgından sürekli aynı Resim duruyor..

ben belirttiğim yere gerekli numara yazıldıktan sonra makroda bir ENTER işlemi yaptımak istiyorum ki eğer bu ENTER işlemini yapmazsa Resim değişmiyor..

Ben Nasıl ilgili yere gereken sayı yazıldıktan sonra ENTER işlemi yapan bi Kod yazarım.. Yani ENTER işlemini yaptırabileceğim bir kod varmı ?

 

[Levent Menteşoğlu]

Aşağıdaki kod Enter tuşuna basar.

SendKeys "{enter}"

 

[conari]

enter keyinin karşılığı 13 dür.

 

[woLwox]

SendKeys "{13}"

böylemi yoksa LEVENTM'nin vermiş oldugumu ? nasıl yazıcam anlamadım..

 

[conari]

Levent Beyin dediği şekilde.

SendKeys "{enter}"​

 

[woLwox]

verdiğiniz kodu keys diye yazdıgımda hata veriyor key diye yazdıgımda çok farklı işlemler yapıyor

 

[woLwox]

Sheets("tt").Select
    Range("p2").Select
    x = ActiveCell.Value
    Sheets("tt").Select
    Range("k1").Select
    For i = 1 To x
    Sheets("tt").Select
    Cells(i + 1, 1).Select
    ActiveCell.Next.Rows.Select
    Selection.Copy
    Sheets("1").Select
    Range("b55").Select
    ActiveSheet.Paste
    Application.Wait Now + TimeValue("00:00:05")
    Sheets("tt").Select
    Application.CutCopyMode = False
    Sheets("1").Select
       ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
Next

End Sub

Yukaridaki Makroda B55 hücresine tt sayfasından aldığı rakamı yapıştırdıktan sonra klavyeden enter tuşuna basmazsam işlem gerçekleşmiyor ben bunu makro ile b55 hücresine ilgili rakamı kopyalayıp yapıştırdıktan son sanki klavyeden enter'e basılmış gibi bir kod yazıp işlemleri yapmaya devam etmesini istiyorum bunu bir türlü yapamadım .. yardımcı olacak biri varmı ?

 

[conari]

application.wait den sonra bu kodu ekleyin

SendKeys "{enter}"​

Ayrıca bu makro nasıl bir komutla çalışıyor çalıştırıcı nedir? oda etkileyebilir.
Olmaz ise belgenizi ekleyin
Ekli Dosyayı incele