Sutunda Sabir bir arama ile yanindaki satiri yazdirma

[burakaraman]

assagidaki gibi bir sutunda tarama yaptirip, once 1 gelirse yanindaki satiri C1'e yazidirmak, sonra 2 yi buldgunda yanindaki satiri C2 ye yazdirmak istiyorum. Ancak, once 1 degil 2 de olabilir farkli bir sutunda. Eger yardim edersenin cok teseekur ederim

0
0
0
1
0
0
2
0
0
0
1
0
0

 

[Emir Hüseyin Çoban]

. . .

Örnek tablo üzerinde anlatırsanız, daha anlaşılır olacaktır.

. . .

 

[burakaraman]

Ornek bir dosya ekledim. Tesekkurler

 

[Emir Hüseyin Çoban]

. . .

Örneğin 6. satırda
3 Şubatta bir değişim daha olmuş. Bu yazılmayacak mı.

. . .

 

[burakaraman]

Hayir hocam, Yalnizca ilk iki degisimi yazdirmak istiyoruz. Fakat, Bugunden sonraki ilk iki degisim. Cunku eski tarihlere bakmamasi gerekiyor.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    başla = InputBox("Başlangıç Sütun Bilgisini Girin" & Chr(10) & _
    "Örneğin: B", "", "B")
    If başla = "" Then Exit Sub
    
    bitiş = InputBox("Bitiş Sütun Bilgisini Girin" & Chr(10) & _
    "Örneğin: AL", "", "AL")
    If bitiş = "" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    sonsat = Cells(Rows.Count, "A").End(3).Row
    Range("AN6:" & "AO" & sonsat).ClearContents
    For s = 6 To sonsat
        For i = Cells(1, başla).Column To Cells(1, bitiş).Column
            If Cells(s, i) <> Cells(s, i + 1) Then
                If Cells(s, "AN") = "" Then
                    Cells(s, "AN") = Cells(5, i + 1)
                Else
                    Cells(s, "AO") = Cells(5, i + 1)
                    Exit For
                End If
            End If
        Next i
    Next s
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[burakaraman]

Kusura bakmayin amacim ogrenmek oldugu icin ve isime yarayacak bir bilgi oldugu icin soruyorum tekrardan.

Mesela 1den 2 ye gecisde Gelis, 2den 1 e gecis Gidis anlamina geliyor. Burdan yola cikarsak, surekli bir onceki gunden cikartma yaparak ekteki gibi bir tablo cikiyor
Burada da -1 olanlar gelis, +1 olanlar gidis anlamina geliyor.
Bu tablodan macro ile degilde, excel formulleriyle bir cozum bulabilirmiyiz acaba? Cunku gelismi gidismi oldugunu yazmasi bizim icin onemli. Buna gore filtreleme yapilacak.
Sorguyu baslatma tarihi olarak, bugunu otomatik sectirip, o degerin satir-sutun kesisiminden baslatamaz miyiz?

Zahmetleriniz icin cok tesekkurler.

 

[burakaraman]

Yapilabilirmi acaba? en azindan yonlendirebilirmisiniz?Elimdeki dosya cok buyuk oldugu icin Visal basic ile yapilan birseyi kolay edit edemiyorum. Gunlerdirde ugrasiyorum olmadi. Exceli cok iyi bilmiyorum