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

[azure]

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.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

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

.

 

[azure]

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