[حل شده] نشان دادن دو ستون در کمبو باکس در یوزر فرم

[mohammad59]

سلام
با عرض سلام
من در یوزفرم دو تا کامند باکس دارم که به هم وابسته هستن یعنی اگر آیتمی از کامند باکس یک انتخاب بشه آیتم های مربوط به آیتم کامند باکس یک در کامند باکس دو نشان داده می شوند

حال مشکلم اینجاست که می خوام هر دوتا کامند باکس به صورت دو ستونی نشان داده بشن یعنی اطلاعاتی که از شیت ها بر می دارن رو کد کناریشو هم نشون بده

[iranweld]

با سلام فایل پیوست را ملاحظه نمایید.

Private Sub ComboBox1_Change()

Dim i, j As Integer

ComboBox2.Clear

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "D").End(xlUp).Row

With ComboBox2

        .ColumnCount = 3
        
        .ColumnWidths = "250;70;5"
        
        For i = 4 To Z1
        
        If Sheet1.Cells(i, 4) = ComboBox1 Then
        
            .AddItem Sheet1.Cells(i, 6).Value
            
            .List(.ListCount - 1, 1) = Sheet1.Cells(i, 5).Value
            
            End If
            
        Next i
        
    End With



End Sub 

[mohammad59]

عالیه استاد بهتر از این نمیشه

بی نهایت سپاسگزارم

حل شد مشکلم