Copiar datos con formato
Saludos y gracias por tu tiempo mediante un combobox y un comando desde un user form selecciono un nombre del combobox (ya tengo los datos en hoja1) y debe copiar en hoja2 solo los datos que cumplan el nombre seleccionado del combo, el problema es que no me copia los bordes y solo un decimal, te detallo :
hoja1: Pedidos (tiene bordes y con 2 decimales P.Unit y total)
nombre referencia (texto) descripción Talla Color P.Unit . Cant Total
Ana 0001 blusa M verde 50.00 2 100.00
Luis 1534 camisa L negro 45.80 3 137.40
Ana 2876 short S rojo 12.50 1 12.50
Elijo del combo Ana y click en comando aparece en Hoja2 REPO1 :
Referencia descripción talla Color P.Unit. Cant Total
0001 blusa M verde 50 2 100
2876 short S rojo 12.5 1 12.5
El código del comando es :
Private sub Comando1_click()
Sheets("REPO1").Range("A9:F48").Clear
nombre = cmbempre.Value
Set busca = Sheets("PEDIDOS").Range("A2:A1000").Find(nombre, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
Range("B5").Copy Destination:=Sheets("REPO1").Range("C5"). Aquí se copia el nombre
Range("B2:F2").Copy Destination:=Sheets("REPO1").Range("A9") Aquí empieza a copiar
ubica = busca.Address
Sheets("REPO1").Range("C5").Value = busca
libre = Sheets("REPO1").Range("A48").End(xlUp).Row
Do
Sheets("REPO1").Cells(libre, 1) = busca.Offset(0, 1)
Sheets("REPO1").Cells(libre, 2) = busca.Offset(0, 2)
Sheets("REPO1").Cells(libre, 3) = busca.Offset(0, 3)
Sheets("REPO1").Cells(libre, 4) = busca.Offset(0, 4)
Sheets("REPO1").Cells(libre, 5) = busca.Offset(0, 5)
Sheets("REPO1").Cells(libre, 6) = busca.Offset(0, 6)
libre = libre + 1
Set busca = Sheets("PEDIDOS").Range("A2:A1000").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
Sheets("REPO1").Select
Range("E49").Value = Application.WorksheetFunction.Sum(Range("E9:E48"))
Range("G49").Value = Application.WorksheetFunction.Sum(Range("G9:G48"))
Range("H49").Value = Application.WorksheetFunction.Sum(Range("H9:H48"))
Range("A9:H49").Select
Tampoco me copiaba el tamaño de letra le inserte este código para no modificar tamaño de letra
With Selection.Font
.Name = "arial"
.Size = 8
End With
End sub
Creo que debe insertarse instrucción de copiar formato y numero también debajo de copy destination, favor espero atentamente su consejo.Ademas hay código para sumar cant.PUnit y Total aquí también deseo los bordes.que habría que crear.
