Son istenen değeri bulma hk.

[OoParadiSeoO]

Arkadaşlar merhaba,

A sütunundaki değerler içerisinden en sonuncu istanbul değerinin kacıncı satırda olduğunu bulmam gerekiyor. Bu değer birden fazlada yazabilir. Sonuncu olanın satir sayısını vermeli.

Örnek;

İSTANBUL
ADANA
ANKARA
İSTANBUL
İSTANBUL

Sonuç ; = 5

Yardımcı olabilirmisiniz...

 

[bzace]

Merhaba,
Deneyiniz.

=KAÇINCI(2;1/(A1:A5="İSTANBUL"))
[COLOR="Blue"]Formül dizi formülüdür. CTRL + SHIFT + ENTER ile tamamlayınız.[/COLOR]

 

[OoParadiSeoO]

Sayın bzace teşekkürler yalnız bu işlem makronun bir parçası olacak. Makro ile çözümlemek mümkün müdür?

 

[Korhan Ayhan]

Alternatif;

=TOPLA.ÇARPIM(MAK((A1:A1000="İSTANBUL")*SATIR(A1:A1000)))

 

[OoParadiSeoO]

üstadlar bu işlem makronun bir parçası olacak. Makro ile çözümlemek mümkün müdür?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Makro1()
    Dim Satir As Long
    
    Satir = Evaluate("=SUMPRODUCT(MAX((A1:A1000=""İSTANBUL"")*ROW(A1:A1000)))")
    MsgBox Satir
End Sub

 

[OoParadiSeoO]

Korhan bey teşekkürler. Farklı bir sorum daha var yeni konumu açsam bilemedim.. A sütunundaki ilk ay başı tarihinin satır sayısını nasıl bulabiliriz? Ay başından kasıt herhangi bir ayın ilk tarihi. Yani 01.01.2013 veya 01.06.2014 veya 01.12.2015 gibi...

Örnek,
İSTANBUL
ANKARA
İZMİR
01.01.2014
02.01.2014
03.01.2014

Sonuç; = 4

 

[bzace]

Korhan bey'in önerisine göre düzenleyiniz.

=KAÇINCI(YANLIŞ;EMETİNSE(A1:A7);)
[COLOR="Blue"]Formül dizi formülüdür. CTRL + SHIFT + ENTER ile tamamlayınız.[/COLOR]

Daxe Syán

 

[OoParadiSeoO]

Sayın bzace bu sütundaki son tarihi veriyor. Benim isteğim ilk ay başı tarihinin satır sayısı ve makroya uyarlanmış olması gerekiyor..

 

[YUSUF44]

Aşağıdaki kod A1'den itibaren aşağı doğru bakar, hüre tarihse ve tarihin günü 1 ise E1'e kaçıncı satır olduğunu yazar:

Sub aybaşı()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
If IsDate(Cells(i, 1)) Then
If Day(Cells(i, 1)) = 1 Then
[E1] = i
Exit Sub
End If
End If
Next
End Sub

 

[OoParadiSeoO]

Yusuf bey isteğim buydu teşekkür ederim. Diğer üstadlarada ayrıca teşekkürler...