Veri girişi yapılacak satırın seçili gelmesi

[maakbulut]

Merhabalar,

Aşağıdaki 2 soruma nasıl bir macro yazılabilir?

1. 2000 in üzerinde satır içeren ve paylaşımda olan excel dosyasının her açılışında en son kullanıcı hangi hücreyi aktif yaparak kaydetti ise o hücre seçili olarak açılmaktadır. Benim istediğim ise en son kullanıcının hangi hücrede iken kapattığnın bir önemi olmaksızın her açılışta veri girilmemiş en son satırın B sütununa denk gelen hücresinin seçili olmasıdır.

2. Malum verilerimizi sürekli yukarıdan aşağı doğru giriyoruz ve sürekli satırlar aşağı doğru uzuyor. Dosyamızı her açtığımızda veri gireceğmiz satır en altta kalıyor ve sürekli en alt satıra gitmemiz gerekiyor. Dosyamızı her açtığımızda ilk girilen satır en altta, en son girilen satır en üstte olsa ve en üst satır veri girişi için boş olarak karşımıza gelse, bu boş satıra veri girişi yapıldıktan sonra "Enter" tuşuna basıldığında tüm satırlar aşağı doğru kayarak tekrar en üstte boş satır açılsa nasıl olur?

 

[hamitcan]

1.Sorunuzun cevabı. Kodu, sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Activate()
Cells([B65536].End(3).Row + 1, "B").Select
End Sub

 

[maakbulut]

1.Sorunuzun cevabı. Kodu, sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Activate()
Cells([B65536].End(3).Row + 1, "B").Select
End Sub

Denediğimde ekteki uyarıyı verdi ve çalışmadı

 

[hamitcan]

"Makro içerebilen Excel Çalışma Kitabı" olarak kaydedin.

 

[maakbulut]

"Makro içerebilen Excel Çalışma Kitabı" olarak kaydedin.

Koskoca uyarıda bunu nasıl görememişim.

"xlsm" uzantılı olarak kaydetmeme rağmen maalesef olmadı. Kaydederken uyarı vermiyor fakat dosyayı açtığımda en son seçmiş olduğum hücre aktif olarak geliyor

 

[hamitcan]

her açılışta veri girilmemiş en son satırın B sütununa denk gelen hücresinin seçili olmasıdır.

Bu şekilde istemediniz mi ?

 

[maakbulut]

Bu şekilde istemediniz mi ?

Ekteki örnek dosyayı açtığımda en son hangi hücre seçili iken kapatırsanız kapatın B22 hücresinin seçili olarak gelmesini istiyorum.

 

[manisali50]

Doğru mu anladım acaba?
Hangi konumda kapatırsanız kapatın,Sayfa1- B22 hücresinde açılacaktır.

Sub Autpen()
Sheets("Sayfa1").Activate
Cells(22, 2).Activate
End Sub

 

[maakbulut]

Doğru mu anladım acaba?
Hangi konumda kapatırsanız kapatın,Sayfa1- B22 hücresinde açılacaktır.

Sub Autpen()
Sheets("Sayfa1").Activate
Cells(22, 2).Activate
End Sub

Örnek dosya için B22 hücresinde açılmalı. Fakat dosyaya veri girildiğinde ise veri girilmemiş ilk satırın B hücresinde açılmalı. Sizin yazmış olduğunuz kodları denediğimde ise makroyu çalıştırınca B22 hücresine gidiyor. Sayfa açıldığında gitmiyor. Acaba benim excel güvenlik ayarlarında mı bir problem var.

 

[hamitcan]

Private Sub Worksheet_Activate()
IF [B65536].End(3).Row= 1 then 
[b22].select
else
Cells([B65536].End(3).Row + 1, "B").Select
end if
End Sub

 

[maakbulut]

Private Sub Worksheet_Activate()
IF [B65536].End(3).Row= 1 then 
[b22].select
else
Cells([B65536].End(3).Row + 1, "B").Select
end if
End Sub

Maalesef çalışmıyor. Sizde çalışıyor mu? Sizde çalışıyor ise güvenlik ayarlarıyla biraz daha uğraşayım. Farklı bilgisayarlarda denedim ve hiç birinde çalışmadı.

 

[hamitcan]

Güvenlik ayarlarınızı orta düzeye alıp, deneyin.

 

[manisali50]

Ben aynı makroyu hemen her dosyamda kullanıyorum ve sorunsuz çalışıyor.Sanırım sorun sizin güvenlik ayarlarınızda..

 

[maakbulut]

Güvenlik ayarlarınızı orta düzeye alıp, deneyin.

Excel dosyası açıldığında istediğim hücrede olmuyor. Fakat sayfa2'ye geçerek tekrar sayfa1'e geri döndüğümde ise istediğim hücreye geçiyor. Kodda ne tür değişiklik yaparak dosya açıldığında sözkonusu hücrede olmasını sağlayabiliriz.

 

[hamitcan]

Kodları, bir module içersine ekleyin.

 sub auto_open()
IF [B65536].End(3).Row= 1 then 
[b22].select
else
Cells([B65536].End(3).Row + 1, "B").Select
end if
End Sub

 

[maakbulut]

Kodları, bir module içersine ekleyin.

 sub auto_open()
IF [B65536].End(3).Row= 1 then 
[b22].select
else
Cells([B65536].End(3).Row + 1, "B").Select
end if
End Sub

Bu kodu kendim denemiştim fakat olmadı

 

[hamitcan]

Sayfa ile ilgili sorununuz olabilir. Kodun başına

sheets("Sayfa ismi").select

satırını ekleyin. Sayfa ismi kısmına da hangi sayfada bu işlemi yapmak istiyorsanız onu yazın.