listeden veri seçme,taşıma

[serdarsari]

arkadaşlar ekte bi dosyam var içinde açıklama yazılı bi bakabilir miyiz?

 

[serdarsari]

yok mu bakabilecek bi arkadaş?

 

[Milady Meriç]

cevabını bende çok merak ediyorum.

Kolay gelsin.

 

[irfancantr]

yok mu bakabilecek bi arkadaş?

İşiniz acil sanırım şimdilik işinizi geçici olarak çözmek için ekte bulunan dosyayı inceler misiniz?

 

[serdarsari]

mantık iyi ama malum olmayan değerler , ile gösterildiği için çok boşluk yaratıyor birleştir ile denetim o da boşluk veya birleşik yazdırıyor

 

[serdarsari]

irfan beyin ürettiği çözümü düzenleyebilir miyiz?

 

[İhsan Tank]

arkadaşlar ekte bi dosyam var içinde açıklama yazılı bi bakabilir miyiz?

Merhaba
Hücrelerin sonundaki boşlukları silin ve bu kodu deneyin.
Boş bir module kopyalayın.

Option Explicit
Sub birleştir()
Dim ts, kaplan, trabzonspor, asi, hamsi As Date
trabzonspor = MsgBox("Birleştirme Yapıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
kaplan = ""
trabzonspor = ""
For ts = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(ts, "B") > 0 Then
kaplan = kaplan & Cells(ts, "A") & ", "
ElseIf Cells(ts, "B") = 0 Then
trabzonspor = trabzonspor & Cells(ts, "A") & ", "
End If
Next
Range("E9") = Mid(kaplan, 1, Len(kaplan) - 2)
Range("E14") = Mid(trabzonspor, 1, Len(trabzonspor) - 2)
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Birleştirme Tamamlandı", , "Bitiş"
End Sub

 

[serdarsari]

hocam sadece sıfırdan büyük değerlere karşılı gelenleri birleştiriyor

 

[İhsan Tank]

hocam sadece sıfırdan büyük değerlere karşılı gelenleri birleştiriyor

Özür dilerim hücre seçimi yanlış olmuş. Kodu güncelledim.

 

[serdarsari]

oldu ama 0 dan küçüklerin başına 6 yazıyor

 

[İhsan Tank]

oldu ama 0 dan küçüklerin başına 6 yazıyor

üstteki kodu güncelledim.

 

[serdarsari]

hocam çok teşekkürler çalıştı
alternatif formülle yapılabilir mi bu iş?

 

[İhsan Tank]

hocam çok teşekkürler çalıştı
alternatif formülle yapılabilir mi bu iş?

Merhaba

=BİRLEŞTİR([COLOR="Red"]EĞER($B2>0;A2&",";"")[/COLOR];EĞER($B3>0;$A3&",";"");EĞER($B4>0;$A4&",";""))

=BİRLEŞTİR([COLOR="red"]EĞER($B2=0;A2&",";"")[/COLOR];EĞER($B3=0;$A3&",";"");EĞER($B4=0;$A4&",";""))

Kırmızıya boyadığım yeri çoğaltarak yapabilirsiniz. Tavsiye etmem yalnız bilginiz olsun.

 

[serdarsari]

teşekkür ederim emeğinize sağlık....

 

[İhsan Tank]

teşekkür ederim emeğinize sağlık....

Rica ederim
:keyif:

 

[Milady Meriç]

İhsan Hocam,

Kodda kullandığınız sabitleri can-ı gönülden kutluyorum.