enter tuşuna basınca işlem yap

[nachuge]

Arkadaşlar selamlar amacım veri girerken enter tuşuna bastığımda alt satıra değilde yan satıra geçmesini istiyorum bunun için nasıl bir makro yazmalıyım?

 

[Mahir64]

Merhaba,
Seçeneklerde enter tuşu yön seçinini değiştirebilirsiniz.
2010 versiyonunda Seçenekler > Gelişmiş altında.

--

 

[nachuge]

Merhaba,
Seçeneklerde enter tuşu yön seçinini değiştirebilirsiniz.
2010 versiyonunda Seçenekler > Gelişmiş altında.

--

peki bunu kullancııya bırakmadan kod ile değişmek mümkünmüdür acaba?

 

[Mahir64]

Bir çalışma için mi olacak?

Sub auto_open()
Application.MoveAfterReturnDirection = xlToRight
End Sub

Sub auto_close()
Application.MoveAfterReturnDirection = xlDown
End Sub

Girişte sağa yapar, çıkışta, diğer dosyaları etlememesi için aşağı yapar.


--

 

[nachuge]

mesela bilgiler sayfasında bu işlem bana lazım bilgiler sayfasının kod kısmına verdiğinizi yapıştırırsam nasıl tetiklenmesini sağlayacağım açılışta?

 

[nachuge]

şu komutu buldum çalışıyor şu an

Private Sub Workbook_Open()
Application.MoveAfterReturnDirection = xlToRight
End Sub

 

[Mahir64]

Sayfanın kod bölümüne,

Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub

--

 

[nachuge]

çok teşekkür ederim.

belki fazla garip gelecektir ama açılışta makroları etkinleştir penceresini devredışı bırakıp direk makrolarla çalışmaya başlamak gibi birşey mümkünmüdür peki

 

[Mahir64]

Makro güvenliğinden kendiniz ayarlayabilirsiniz.
2007 için tam olarak yerini bilmiyorum.

--

 

[Korhan Ayhan]

Aşağıdaki linki inceleyiniz.

Makro Güvenlik Ayarları

 

[nachuge]

teşekkürler şöyle bir sorum var da yardımcı olurmusunuz

Sub Check()
Dim rng As Range
Dim i As Long

Set rng = Range("A20:C25")

For Each cell In rng

If cell.Value <> "" Then
MsgBox ("Harcırah Tablonuz Şu An Dolu, Silinenleri Geri Getirmek İçin Önce Tabloyu Boşaltmanız Gerekiyor")
End If

Next
End Sub


ile A20:C25 arasında hücre dolu ise hata verdiriyorum eğer boş isede verdirmek istiyorum nereye komut eklemeliyim?

 

[Korhan Ayhan]

Aşağıdaki kodu kendinize göre uyarlayıp deneyiniz.

Sub Makro1()
    Say = WorksheetFunction.CountA(Range("A20:C25"))
    MsgBox Say
End Sub

 

[nachuge]

Teşekkür ederim..

 

[MEHMETTOK]

arkadaşlar yeni işe başladım.firmada stok sorunu var.stok tutmuyor bir türlü excell de bir program yapmak istiyorum stok programı acil lütfen yardımcı olur musunuz ?

 

[nachuge]

arkadaşlar şöyle bir listem var tatil gününe dnek gelen günlerde ilgili satırı belli bir renk yapabilirmiyim acaba mümkünmüdür?

iyi çalışmalar dilerim..