Çözüldü Hücre içinde alt alta bulunan veriden veri alma

[himmgarip]

Merhaba,

Aşağıda bulunan veriyi outlooktan hücreye aldırıyorum. Hücrede bulunan kırmızı işaretli alanda bulunan veriyi resimdeki gibi aldırmak istiyorum. Şablon bütün maillerde aynıdır. Desteğiniz için şimdiden teşekkür ederim.

 

[Ortak_Akıl]

denermisiniz.

 

[Caylak]

Merhabalar, deneyiniz

 

[himmgarip]

Caylak hocam tam istenilen gibi teşekkürler.

Lakin soru sorduktan sonra ek bir durum oluştu. Mail sayısı çoğaldı.

Temp adında bir çalışma sayfasına A1-A2-A3.... diye mailleri aldırıyorum artık. Burada A1d den başlayarak son dolu satıra kadar tarayıp o aynı şekilde aynı verileri alt alta aldırabilirmiyiz acaba? Teşekkürler şimdiden.

 

[Refaz]

Merhaba.
Caylak hocamızın kodunu alttaki gibi değiştirip deneyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Kodun kısaltılmış hali ve kodda a değişken kullanılmıştı onuda sildim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[himmgarip]

Kodun kısaltılmış hali ve kodda a değişken kullanılmıştı onuda sildim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz hocam elinize sağlık on numara olmuş. Altına ek bilgi için koda ekleme yaptığımda hata alıyorum.






HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Caylak]

Refaz hocam elinize sağlık on numara olmuş. Altına ek bilgi için koda ekleme yaptığımda hata alıyorum.

Ekli dosyayı görüntüle 18678


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kodunuzu bu satırın altına yazın end if satırının üzerine
.Cells(sat, "E") = Trim(x(1))

 

[Refaz]

Hatadan önceki end if satırını silin.

 

[himmgarip]

Kodunuzu bu satırın altına yazın end if satırının üzerine
.Cells(sat, "E") = Trim(x(1))

Kendimden utandım Kusura bakmayın. Nasıl kaçırdım ya. Çok özür dilerim.

 

[Caylak]

Kendimden utandım Kusura bakmayın. Nasıl kaçırdım ya. Çok özür dilerim.

Olur böyle şeyler, aldırmayın

 

[Refaz]

Kendimden utandım Kusura bakmayın. Nasıl kaçırdım ya. Çok özür dilerim.