hücrede yazan kelimeye göre hareket

[ozerserhat]

Merhabalar,
excel de fonksiyon kullanmak istiyorum

sayfa1 de c sutunun da eğer "çek" yazanları sayfa2 c ye otomatik yazsın
sayfa1 de c sutunun da eğer "senet" yazanları sayfa3 c ye otomatik yazsın


istiyorum yardım edebilrseniz çok sevinirim teşekkürler

 

[asi_kral]

Merhabalar,
excel de fonksiyon kullanmak istiyorum

sayfa1 de c sutunun da eğer "çek" yazanları sayfa2 c ye otomatik yazsın
sayfa1 de c sutunun da eğer "senet" yazanları sayfa3 c ye otomatik yazsın


istiyorum yardım edebilrseniz çok sevinirim teşekkürler

Dosya ekler misiniz_?

 

[ozerserhat]

dosyayı ekledim inşallah anlaşılır
ilginiz için teşekkürler

 

[Murat OSMA]

Sayfaya bir buton ekleyip deneyiniz;

[SIZE="2"]Sub Emre()
    Dim i As Integer
    For i = 2 To Range("C65536").End(3).Row
        Select Case Cells(i, "C")
            Case Is = "çek"
                Range("A" & i & ":H" & i).Copy Sheets("çek").Range("a65536").End(3)(2, 1)
            Case Is = "senet"
                Range("A" & i & ":H" & i).Copy Sheets("senet").Range("a65536").End(3)(2, 1)
            Case Is = "nakit"
                Range("A" & i & ":H" & i).Copy Sheets("nakit").Range("a65536").End(3)(2, 1)
        End Select
    Next i: i = Empty
End Sub
[/SIZE]

 

[asi_kral]

dosyayı ekledim inşallah anlaşılır
ilginiz için teşekkürler

Merhaba
Çek - Senet - Nakit sayfalarından herhangi birinin A2 hücresine

=EĞER(SATIRSAY(A$2:A2)>EĞERSAY(Sayfa1!$C$2:$C$100;PARÇAAL(HÜCRE("FILENAME";A3);
BUL("]";HÜCRE("FILENAME";A3))+1;255));"";İNDİS(Sayfa1!A$2:A$100;KÜÇÜK(EĞER(
Sayfa1!$C$2:$C$100=PARÇAAL(HÜCRE("FILENAME";A3);BUL("]";HÜCRE("FILENAME";A3))+1;
255);SATIR(Sayfa1!$C$2:$C$100)-SATIR(Sayfa1!$C$2)+1);SATIRSAY(A$2:A2))))

Formülünü yazın ve diziye çevirin. ( Formülü diziye çevirmek için formülü hücreye girdikten sonra enter tuşuna basmadan Ctrl+Shift+Enter tuş kombinasyonu ile çevirebilirsiniz. Formülün başında ( { ) ve sonunda ( } ) bu işaretler çıkacaktır. Elle koyduğunuz takdirde hata verecektir.
Formülde 100 satır baz alınmıştır. Uzun verilerde kasma yaşanır.
Dosyanız ekte.

 

[ozerserhat]

ilginize çok teşekkür ederim
elinize sağlık
kolay gelsin iyi çalışmalar