Alexon2008
01-10-2008, 01:55 PM
I have this makro which works fine but I have a problem when user select two or more item in listbox. So I need to change macro so when user select two or more item to make copies and paste them on sheet1 and starting with row 24.
Private Sub CommandButton1_Click()
If ListBox1.Value = "Delta" Then
Worksheets("vj").Range("4:4").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
ElseIf ListBox1.Value = "Alfa" Then
Worksheets("vj").Range("8:8").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
If ListBox1.Value = "Eta" Then
Worksheets("vj").Range("12:12").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
If ListBox1.Value = "Gamma" Then
Worksheets("vj").Range("16:16").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
If ListBox1.Value = "Omega" Then
Worksheets("vj").Range("20:20").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
Private Sub CommandButton1_Click()
If ListBox1.Value = "Delta" Then
Worksheets("vj").Range("4:4").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
ElseIf ListBox1.Value = "Alfa" Then
Worksheets("vj").Range("8:8").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
If ListBox1.Value = "Eta" Then
Worksheets("vj").Range("12:12").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
If ListBox1.Value = "Gamma" Then
Worksheets("vj").Range("16:16").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With
If ListBox1.Value = "Omega" Then
Worksheets("vj").Range("20:20").Copy
With Worksheets("Sheet1").Range("24:24")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteComments
End With