Microsoft excel

Hola buenos días,
Estoy intentando seleccionar 1 columna y 1 fila a la vez (según una serie de condicionales que le ponga después) y una vez que los tengo seleccionados coger la celda por la cual ambas intersectan y copiarla a otra.
Este es mi código pero mi problema es que solamente se selecciona con la segunda IF:
Private Sub CommandButton1_Click() 
If Sheets("Hoja2").Range("c1").Value = "EJEMPLO" Then 
Sheets("Hoja2").Rows(3).Select 
End If 
If Sheets("hoja2").Range("c2").Value = "EJEMPLOS" Then 
Sheets("Hoja2").Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select 
End If 
Application.Intersect(Sheets("hoja2").Range("Selection"), Sheets("hoja2").Range("Selection")).Copy 
Sheets("Hoja2").Range("f2").PasteSpecial 
End Sub 
NOTA: No se exactamente que debo poner en *Selection
Gracias,
Fenacos

1 respuesta

Respuesta
1
Veo que seleccionas 1ro la fila entera y luego la col entera,,,, eso no es necesario, mejor guardá el nro de fila y col en variables.
Para tu ejemplo quedaría:
Private Sub CommandButton1_Click() 
If Sheets("Hoja2").Range("c1").Value = "EJEMPLO" Then 
     'Sheets("Hoja2").Rows(3).Select
fil = 3   'Rows 3
End If 
If Sheets("hoja2").Range("c2").Value = "EJEMPLOS" Then 
       'Sheets("Hoja2").Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select 
col = 1  'col A
End If 
Cells(fil, col). Copy
Sheets("Hoja2"). Range("f2"). PasteSpecial
End Sub 
Si te quedó claro no olvides finalizar la consulta. En mi página de macros encontrarás más ejemplos de instrucciones básicas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas