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

Ok muchas gracias

Hasta otra

"KL" escribió:

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

Hola a todos!!, necesito saber si me pueden ayudar con lo siguiente, tengo
que realizar una macro en excel que ejecute unas querys conectandose a una
base de datos en Oracle. Si alguien me puede orientar en este tema yo
estaria muy agradecido.

Atte.
Pablo Bonilla

Hola Pablo,

Podrias empezar por aqui:
http://erlandsendata.no/english/ind...connstring
http://erlandsendata.no/english/ind...t=envbadac

Saludos,
KL


"Pablo Bonilla" wrote in message
news:

Hola a todos!!, necesito saber si me pueden ayudar con lo siguiente, tengo
que realizar una macro en excel que ejecute unas querys conectandose a una
base de datos en Oracle. Si alguien me puede orientar en este tema yo
estaria muy agradecido.

Atte.
Pablo Bonilla