Makro ile "ENTER" davranışı... Acil Lazım...

[baldiran]

Ã?ncelikle böyle bir sitenin bulunması bizim gibi ofis kullanıcıları için büyük bir nimet olduğunu düşündüğümü belirtmek istiyorum. Yazık ki çok geç tanıştım sizlerle...

Excel'de oluşturduğum tabloya aylık çalışma saatlerini girmem gerekiyor. Klavye ile saat formatını yazmak uzun olduğu için bir form oluşturdum ve oluşturduğum butonlarla saatleri hücrelere ekleyebiliyorum. Ancak her satırı işledikten sonra kendiliğinden alt satıra inmesini istiyorum. Makro kaydı ile denedim ama hücre adresi veriyor. Ben istiyorum ki; hangi hücre seçili olursa olsun işlemi yaptıktan sonra bir alt hücre seçili hale gelsin. Böyle bir kod varsa bana bildirebilirmisiniz?...

 

[Hüseyin]

Makronuzun sonuna

ActiveCell.Offset(1, 0).Select

ekleyin.

 

[baldiran]

İlginize çok teşekkür ederim.
Bu arada Excel içindeki visual basic kodlayıcıda hazırladığım formu dosya açılışında otomatik olarak nasıl getirebilirim?
Sağlıklı ve mutlu günler dileğimle...

 

[Hüseyin]

Hazırladığınız formun adı UserForm1 olsun.
Aşağıdaki kodu hangi sayfayı seçtiğinizde formun açılmasını istiyorsanız, o sayfanın Code sayfasına yerleştirin.

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Eğer Çalışma Kitabı açıldığında form açılsın istiyorsanız,
This Workbook Code sayfasına aşağıdaki kodu ekleyin.

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Saygılar

 

[baldiran]

Açılışta form açılması işimi zorlaştırdı. Ama bunu öğrenmem çok iyi oldu.
sayfada oluşturduğum butonla bu formu nasıl açabilirim. başka sayfaya geçtiğimde formu açmak istiyorum. (Form açılınca sayfalar arası geçiş imkansız hale geldi.)

Bugün biraz başınızı ağrıttım galiba... :?

 

[Hüseyin]

Selam asıl kod aynı.
sayfa üzerine buton eklediğinizde makro penceresi otomatik çıkıyorsa create ile yeni kod açın ve sadece ortadaki satırı içine ekleyin.
Veya önceden kodu bir module yapıştırın, butonu ekledikten sonra bu makroya bağlayın.

Private Sub CommandButton1_Click() 
UserForm1.Show
End Sub

 

[baldiran]

Çok teşekkür ederim...
Yardımlarınızla normalde 2.5 - 3 saat süren bir işim 20 dakikada bitti...
İyi çalışmalar.