sütunda geçen cümleleri satıra dökme

[ripiness]

Başlık yanlış olabilir.

B sütununda “SAHADA BOSALTMA” veya “KARADAN BOS GIRIS” gördüğünde A sütununda, “SAHADA BOSALTMA” veya “KARADAN BOS GIRIS” ‘in solunda bulunan tarihi C sütununda bulunan “SAHADA BOSALTMA VEYA KARADAN BOS GIRIS”’in altına yazacak
B sütununda “KONT.IC DOLUM” gördüğünde A sütununda, “KONT.IC DOLUM” ‘un solunda bulunan tarihi D sütununda bulunan “KONT.IC DOLUM” in altına yazacak
Örnek ektedir.
Yardımlarınız için peşinen teşekkürler.

 

[uzmanamele]

merhaba
aşağıdaki formülü denermisiniz,
veri girişinde yazım hatası varsa ne olacak?
C sütununda
=EĞER(YADA(B3="SAHADA BOSALTMA";B3="KARADAN BOS GIRIS");A3;"")

D sütununda
=EĞER(EHATALIYSA(EĞER(BUL("KONT.IC DOLUM";B3;1)>0;A3;""));"";EĞER(BUL("KONT.IC DOLUM";B3;1)>0;A3;""))

not: C ve D sütununu tarih formatında biçimlendirin

 

[ripiness]

Veri girişlerini düzenleyeceğiz,
Formulleri girdim ama hata verdi.
Birde bu yazcağı verileri başka excel saylarına taşıyacağımdan görüntü değil içeriğin olduğu gibi yazması gerekmektedir.
Teşekkür ederim.

 

[nikomedian]

merhaba
aşağıdaki formülü denermisiniz,
veri girişinde yazım hatası varsa ne olacak?
C sütununda
=EĞER(YADA(B3="SAHADA BOSALTMA";B3="KARADAN BOS GIRIS");A3;"")

peki bu kodlamayı tek tek girmeden, otomatik oalrak bütün b'lere bakarak, eğer varsa a3 teki tarihleri, c'lere kopyalamak istiyorum, ayrdımcı olabilir misin?

 

[uzmanamele]

merhaba
her satıra tek tek formül girmenize gerek yok
C3 hücreyi kopyala C4:C50 arasını seç ve yapıştır.
formül kopyalamanın benzer birçok yolu var

 

[nikomedian]

merhaba
her satıra tek tek formül girmenize gerek yok
C3 hücreyi kopyala C4:C50 arasını seç ve yapıştır.
formül kopyalamanın benzer birçok yolu var

anlıyorum ama ben başka bir yerde kullanacağım, ve bütün sayfayı taraması gerekiyor, yazabilirseniz sevinirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

Sub Aktar()
Application.ScreenUpdating = False
Dim i, cs, ds As Long
Sheets("Sheet4").Select
Range("C3:D65536").ClearContents
cs = 2
ds = 2
For i = 2 To [A65536].End(3).Row
    If Trim(Cells(i, "B")) = "SAHADA BOSALTMA" Or Trim(Cells(i, "B")) = "KARADAN BOS GIRIS" Then
        cs = cs + 1
        Cells(cs, "C") = Cells(i, "A")
    ElseIf Trim(Cells(i, "B")) = "KONT.IC DOLUM" Then
        ds = ds + 1
        Cells(ds, "D") = Cells(i, "A")
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[Ali]

Buda fonksiyonlarla yapılmış bir örnek.

Ekteki örneği inceleyiniz.

 

[ripiness]

İlginiz ve yardımlarınız için çok teşekkür ederim.
Necdet Yeşertener arkadaşın gönderdiği tam istediğim gibi. Ellerine sağlık.
Teşekkür ederim.