Macros

Hola Ubaldo,

Prueba el siguiente codigo.

Saludos,
KL

Sub test()
Dim i As Long, rng As String
Dim celda As Range, Col As String
Col = "A"
With Worksheets("Hoja1")
For i = 2 To .Cells(65536, Col).End(xlUp).Row
Set celda = .Cells(i, Col)
If celda.Value Like "*[*]*" Then
If rng <> "" Then rng = rng & ","
rng = rng & celda.Address
End If
Next i
.Range(rng).EntireRow.Copy Worksheets("Hoja2").Range("A4")
End With
End Sub




"Ubaldo" wrote in message
news:

valores, etc..
Hola a todos

Necesito hacer una macro que haga lo siguiente:

Si en la celda tal hay un "*" copia toda la fila completa a otra hoja y a
continuación pega la fila con todos su formato, anchura, valores, etc..

Se trata de extaer las filas que he marcado conun Asterisco a otra hoja
del
mismo libro.

Alguien puede mandarme las sentencias del visual basic para la macro
Gracias