• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

farklı hücrelerdeki değerleri birleştirme..

Katılım
21 Ocak 2009
Mesajlar
67
Excel Vers. ve Dili
xp
iyi günler...

yapmak istediğim ekipmanlar sayfasındaki ekipman kodu sütünundaki değerlerle ekipman numarası değerlerini birleştirerek ekipman envanteri sayfasında olduğu gibi alt alta yazmak. umarım açıklayıcı olmuşumdur.

yardımcı olursanız sevinirim.
 

Ekli dosyalar

Merhaba,

Bu şekilde deneyin.

Kod:
Sub Duzenle()
 
    Dim Se As Worksheet, i As Long, sat As Long, j As Integer, a
 
    Set Se = Sheets("ekipmanlar")
 
    Application.ScreenUpdating = False
 
    Sheets("ekipman envanteri").Select
    Range("A2:D" & Rows.Count).ClearContents
 
    sat = 2
    For i = 2 To Se.Cells(Rows.Count, "A").End(xlUp).Row
        a = Split(Se.Cells(i, "D"), "-")
        For j = 0 To UBound(a)
            Cells(sat, "A") = Se.Cells(i, "A") & "-" & a(j)
            Cells(sat, "B") = Se.Cells(i, "A")
            Cells(sat, "C") = Se.Cells(i, "B")
            Cells(sat, "D") = Se.Cells(i, "C")
            sat = sat + 1
        Next j
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.
 
çok teşekkür ederim tam istediğim gibi olmuş.
 
Geri
Üst