Adres, kaçıncı satır ve sütun.

[Muhammet Okumuş]

Arkadaşlar merhaba.
Belki benden önce bu soru sorulmuş olabilir ama ben aradım bulamadım.
Sizlerden isteğim D5 adresini makro ile A1 hücresine kaçıncı satır, A2 hücresine kaçıncı sütun olduğunu yazdırmam gerekiyor.
D5 hücresi bildiğiniz gibi 5. satır, 4. sütundur.
A1 hücresine 5, A2 hücresine 4 yazmalı.
Şimdiden teşekkürler...

 

[Merhum İdris SERDAR]

.

Sub adr()

[a1] = [d5].Row
[a2] = [d5].Column

End Sub

şeklinde deneyin.

.

 

[Muhammet Okumuş]

Sn yurttas cevabınız için teşekkür ederim. Ancak ben dosyama uyarlayamadım. Hata benim dosya gönderip cevap almalıydım. Dosyayı incelerseniz sanırım hatamı anlayacaksınız.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.

 

[Muhammet Okumuş]

Sn yurttas yapamadımdan kastım dosyama uyarlayamadım. Dosyada B2 hücresinde değişken bir değer var. Aslında ben o değerin kaçıncı satır ve sütunda bulunduğunu bulmak istiyorum.

 

[Merhum İdris SERDAR]

.

İlk mesajınızdaki sorunuz:

Arkadaşlar merhaba.
Belki benden önce bu soru sorulmuş olabilir ama ben aradım bulamadım.
Sizlerden isteğim D5 adresini makro ile A1 hücresine kaçıncı satır, A2 hücresine kaçıncı sütun olduğunu yazdırmam gerekiyor.
D5 hücresi bildiğiniz gibi 5. satır, 4. sütundur.
A1 hücresine 5, A2 hücresine 4 yazmalı.
Şimdiden teşekkürler...

Şimdiki sorunuz:

Sn yurttas yapamadımdan kastım dosyama uyarlayamadım. Dosyada B2 hücresinde değişken bir değer var. Aslında ben o değerin kaçıncı satır ve sütunda bulunduğunu bulmak istiyorum.

Baştaki sorunuz ile bu aynı mı?

Dalga mı geçiyorsunuz? Kendimi aptal yerine konmuş hissediyorum. Önce soruyu basit sorup, arkasından değişik konuma sokun.
Kusura bakmayın ben bu işte yokum.

Bu davranışınız hiçte hoş değil. Lütfen tekrarı olmasın.


.

 

[Muhammet Okumuş]

Sn yurttas hatalı olduğumu belirtmiştim. Aslında amacaım direk çözüm yerine biraz da kendim uğraşarak çözüme gitmekti. Kusura bakmayın.

 

[Merhum İdris SERDAR]

Sn yurttas hatalı olduğumu belirtmiştim. Aslında amacaım direk çözüm yerine biraz da kendim uğraşarak çözüme gitmekti. Kusura bakmayın.

.

Bundan böyle sorunuzu tam olarak sorun. Dolambaçlı yollara sapmayın.
Ayrıca bir kez daha bunu yaptığınızı sezersem kusura bakmayın, sorunuzu sileceğim. Şimdiden söyleyeyim.


.

 

[Muhammet Okumuş]

[a1] = Range("D2:H10").Find(what:=Range("b2")).Address
[a2] = Range("D2:H10").Find(what:=Range("b2")).Column
[a3] = Range("D2:H10").Find(what:=Range("b2")).Row

Sonunda çözüme ulaştım. Aslında çok basitmiş ama bilmeyince olmuyor.