Verileri Çekme hk.

[valentino06]

Sayın Kıymetli Excel Hocalarım. yardımınıza ihtiyacım var yapılabilir mi bilmiyorum e mail den çekmiş olduğum içerikleri "AM","PM" başka sayfa da satırlara çekmek istiyorum. lütfen yardımcı olabilir misiniz. yardımlarınızdan dolayı çok teşekkür ederim. Örnek Excel de yapmak istediğimi anlattım.

 

[Erdem Akdemir]

Aşağıdaki kodu kullanabilirsiniz.

Sub dagit()

Sayfa2.Range("E2:E" & Rows.Count).ClearContents

For Each deg In Sayfa1.Range("F2:F" & Sayfa1.Cells(Rows.Count, "F").End(3).Row)

Data = Filter(Split(deg, Chr(10)), "Kesilen")

If UBound(Data) > -1 Then
son = Sayfa2.Cells(Rows.Count, "E").End(3).Row + 1
Sayfa2.Cells(son, "E").Resize(UBound(Data) + 1, 1) = Application.Transpose(Data)
End If

Next deg

End Sub

 

[valentino06]

Erdem Hocam çok teşekkür ederim. Allah kat kat razı olsun.İnşallah

Saygılarımla,

İyi günler dilerim.