aktif hücrenin adresini bulma

[ogrenenadam]

meraba arkadaşlar her seferine mause la girdiğm en son hücrenin adresini verecek bunu belirleyeceğim bir hücreye atayacak bir formül veya makro önerirseniz memnun olurum şimdiden teşekkürler

 

[Levent Menteşoğlu]

Bunun için aşağıdaki kodu kullanmanız yeterlidir. Adres A1 hücresine atanmaktadır.

[a1]=activecell.address

 

[ogrenenadam]

teşekkür ederim sağolun

 

[kombo]

Benimde bu konuda bir sorum olacak.
Sayfa 1 deki aktif hücredeki bilgileri sayfa 2 ve sayfa 3 e nasıl aktarabilirim?
Yani sayfa 1 deki aktif hücre A10 olsun. A10 hücresindeki bilgileri Sayfa 2 de "F23" , Sayfa 3 de "H7" e nasıl aktarabilirim. F23 ve H7 sabit A10 değişken olacak. Bir daha yani sayfa 2 deki F23 ve sayfa 3 deki H7 hücreleri sayfa 1 de gezdiğim yerlerin değerini alacak.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[sayfa2!f23]=sheets("sayfa1").activecell

[sayfa3!h7]=sheets("sayfa1").activecell

 

[kombo]

Sn leventm ilginiz için teşekkür ederim ama bunu nasıl makro haline döndüreceğim?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:072bd2c467]sub aktar()
[sayfa2!f23]=sheets("sayfa1").activecell
[sayfa3!h7]=sheets("sayfa1").activecell
end sub[/vb:1:072bd2c467]

 

[kombo]

size yazmadan önce o şekilde denemiştim ama yapamadım. (sayfa 1 e ,sayfa 2 ve sf 3 e yapıştırdım olmadı workbooka yapıştırdım yine olmadı) Butonmu yapmam gerekli?

 

[Levent Menteşoğlu]

Butonmu yapmam gerekli?

Evet

 

[xternet]

Sevgili arkadaşlar aktif hücrenin belli bir hücrede gösterilmesi meselesini uygulamak istedim ama yapamadım. İlk söylenen bilgiyi uygulayabilirsem benim için yeterli olucak.
Yukarıdaki

[a1]=activecell.address

ifadesini nasıl kullanıcam. Bu ifade makro kodu ise tam olarak VBA da nereye ve nasıl yazıcam.
Tüm forum üyelerine selamlar.

 

[karamurselli]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = ActiveCell.Address
End Sub

 

[Zeki Gürsoy]

ThisWorkbook penceresinde aşağıdaki şekilde kullanbilirsiniz.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.[a1] = ActiveCell.Address
End Sub

 

[karamurselli]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = ActiveCell.Address
End Sub

Ya da sadece içeriği değişen en son hücreyi belirtsin istiyorsanız;
Private Sub Worksheet_Change(ByVal Target As Range)
[a1] = ActiveCell.Address
End Sub

 

[kombo]

Arkadaşlar bende yapamadım . devamlı geçersiz prosedür hatası veriyor. Kodları deneme yanılma yöntemi ile Heryere yapıştırdım ama olmuyor .... olmuyor. Bir de bu işi butonsuz çözmek istiyorum. Yardımcı olacaklara teşekkürler..

 

[xternet]

Yukarıdaki yanıtlarla ben sorunumu çözdüm arkadaşlar.
Teşekkürler

 

[xternet]

Konuyla ilişkili bir sorum daha olacaktı arkadaşlar.

Örneğin;

H9:AA9 aralığındaki herhangi bir hücre aktif iken AB9 hücresine "A"
H10:AA10 aralığındaki herhangi bir hücre aktif iken AB10 hücresine "A"
H11:AA11 aralığındaki herhangi bir hücre aktif iken AB11 hücresine "A"
.
.
.
.
H38:AA38 aralığındaki herhangi bir hücre aktif iken AB38 hücresine "A"

yazacak bir makro kodu oluşturulabilir mi?

 

[Metin Karaağaç]

Sn xternet;
Aşağıdaki kod istediğiniz birinci şart için çalışıyor.
İkinci ve diğer şartlar için tek tek yazmadan halledebilirmiyim onu araştırıyorum.
Eğer siz bulabilirseniz buraya yazın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[AB9].Value = "A"
If Intersect(Target, [H9:AA9]) Is Nothing Then [AB9].Value = ""
End Sub

 

[Metin Karaağaç]

Birden fazla olunca beni aşıyor
İşin içinden çıkamadım.

 

[xternet]

Teşekkür ederim Sn Acemi1. İlgilenmeniz yeter. :hey:
Ben makrolarda sıfır olduğum için aşmam imkansız zaten.

 

[dEdE]

Mrb.,
Sayın xternet'in 2. sorununu aşağıdaki kodlar ile çözebiliriz.. Bu kodları sayfanın kod bölümüne yazmalısınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 9 To 38
Range("AB" & i).Value = "A"
If Intersect(Target, Range("H" & i & " :AA" & i)) Is Nothing Then Range("AB" & i).Value = ""
Next
End Sub

Saygılar.