sütunların sırasını bulma

[bibib19]

merhaba arkadaşlar
Bir yerde takıldım çok aradım ama bulamadım (belki arama için uygun soruyu yazamadığım içinde bulamamış olubiliirm)
sizlerden yardımınızı bekliyorum

Exceldeki hecrelerin kaçıncı sütünda olduğunu saıl buldurabilirim formül ile

mesela (K) hücresi veya bulmak istediğimiz hücre (soldan saydığımız zaman (A) 1.sırada,(B) 2.sırada.......K. sırada gibi ) kaçıncı sırada

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

https://www.excelgurusu.com/sutun-basliklari-sayi-harf/

.

 

[bibib19]

teşekkürler hocam

 

[excelokyanus500]

Diğer...

Sub Deneyin()
Range("b5").Select
Range("b5").Interior.ColorIndex = 3
Range("A1").Value = ActiveCell.Column 'Kolon no
Range("A2").Value = ActiveCell.Row 'Satır No
Range("A3").Value = ActiveCell.Address
Range("A4").Value = ActiveCell.Address(0, 0)
Range("A5").Formula = "=SUBSTITUTE(SUBSTITUTE(CELL(""adres""),ROW(),""""),""$"","""")" 'Formülle bulma
'YERİNEKOY(YERİNEKOY(HÜCRE("adres");SATIR();"");"$";"")

End Sub

 

[bibib19]

excelokyanus500 ve İdris SERDAR hocamlarım ilginiz için çok teşekkürler bu sorunu hallettim lakin başka bir sorun ile karşılaştım VBA kodunu ve çözümünü bulamadım Foruma soru olarak yazdım ama yanış olmaz ise buradan da size ve diğer hocalarıma sormak istedim


Hocalarım

aynı kişiler ile mükerrer isim ve görüşme tarihleri mevcut

Hücreye yazdığım formül
------------------------------------------------------------------
GÖRÜŞME_YAPILANLAR'!G:G=Önceden görüşmeye gelen kişiler
GÖRÜŞME_YAPILANLAR'!E:E=Görüşme tarihleri

'KİŞİLER'!G3=Kontrol Etmek istediğim kişilerin bulunduğu hücre (çok sayıda isim var)



{=MİN(EĞER('GÖRÜŞME_YAPILANLAR'!G:G='KİŞİLER'!G3;'GÖRÜŞME_YAPILANLAR'!E:E))}
------------------------------------------------------------------------------------------------------

hücreye yazdığım bu formülü makro olarak kayıt ettirdim sonra makrodan alarak

for next döngüsü ile diğer değerleri de kontrol ederek bulmak istedim lakin bu değeri VBA ya bir türlü uyarlayamadım

yardımcı olursanız çok sevinirim



makro kaydına düşen kot

"=MIN(IF('GÖRÜŞME_YAPILANLAR'!C[-1]='KİŞİLER'!R[1]C[-1],'GÖRÜŞME_YAPILANLAR'!C[-3]))"


Yapmak istediğimi kısaca anlatayım arkadaşlar



GÖRÜŞME_YAPILANLAR isimli sayfada ( G ) hücresinde çok sayıda isimler ve ( E ) hücresinde bu kişilerin geldikleri tarihler yazılı (aynı şahısların değişik tarihlerde de kayıtları var)

ben KİŞİLER isimli başka bir sayfaya oluşturarak (G) hücresine bu şahısların kopyasını alarak yinelenen isimleri teke düşürttüm

ve bu isimleri GÖRÜŞME_YAPILANLAR sayfasındaki isimlerle karşılaştırıp kişiler isimli sayfanın (H) sütununa ilk geldiği tarihi ( I ) sütununa son geldiği tarihi makro ile buldurup sırayla (for next döngüsü ile ) yazdırmak istedim fakat Hücrede çalışan formülü VBA olarak makroda kullanamadım.



yardımlarınızı bekliyorum çok önemli

 

[bibib19]

Hocam dosyayı yükledim
(ana dosya) yazan bilgileri alacağım kısım
(Dosya_Çağır) da makro ile ana dosyaya işlem yaptırdığım dosya

Yardımcı olursanız çok sevinirim 4-5 gündür araştırıyorum ama işin içinden çıkamadım

Rar ile paketli hali

İndir Yeni

Dosyayı indir Yeni

dosya.co

açık hali
Ana_Dosya.xlsx - 11 KB
Dosya_Çağır.xlsm - 24 KB
ekran_3.JPG - 140 KB