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

Saber su una hora y fecha están dentro de un rango

Un gusto saludarles, necesito un apoyo para poder tener una formula en donde me indique si una fecha y hora están dentro de una ventana de atención, tengo un horario de lunes a viernes de 08:00 a 15:00 y sábado de 08:00 a 14:00. Lo que necesito es...
1 respuesta

Pintar rangos de datos repetido de diferente color VBA

Pintar datos repetidos de diferentes colores en una columna excel vba Consultando a mi pregunta anterior como lo haría con array
1 respuesta

Excel siempre deja decimales en 00, es decir, redondea hacia abajo pero aparecen los decimales que seleccioné que aparezcan.

Si hago un cociente, por ejemplo 300/162 el resultado es 1,00. Ya probé con modificar precisión desde opciones avanzadas y no cambia.
1 respuesta

Pintar datos repetidos de diferentes colores en una columna excel vba

Feliz Día del Padre. Los datos reptidos estas ordenados de menor a mayor y deseo pintar datos repetidos de diferentes colores en la columna "H" Sub PintarCeldas() For i = 7 To 500 ant = Cells(7, "H") If Cells(i, "H") = ant Then Cells(i,...
1 respuesta

Cambiar la ruta en una carpeta existente en D:

Felis día del padre para todo aquel que lo sea. Tengo una macro donde la ruta es esta Direc = CreateObject("wscript.shell").specialfolders("desktop") & "\BACKUP\" No la queiro en el escritorio, quiero esta ruta Direc =...
2 respuestas

¿Cómo comprobar si existen valores desde rango de Excel en tabla de Access antes de cargar datos?

Estoy escribiendo una macro que carga valores desde Excel hacia tabla de base de datos en Access, lo que quiero que haga es que recorra un rango Range("D" & i).Value de valores en Excel validando que estén registrados en la tabla de Access...
1 respuesta

Macro para unir multiples columnas

Espero que me puedan ayudar con un trabajo para el hospital que me pidieron hacer un listado de insumos, pero los necesito de un formato especial. Esa es la tabla original, es un listado de insumos en las filas, y en las columnas aparecen unos...
1 respuesta

Usar valores de combobox de 2 columnas

Quiero hacer una busqueda por nombre mostrando en un combobox de 2 columnas el apellido y el nombre de manera que al seleccionar el nombre encontrado el apellido (1ra columna) se copie en un textbox y el nombre (2da columna) se copie en otro textbox
2 respuestas

Como crear un botón para imprimir en macros en excel vba en un formato especifico

Desde hace varios días estoy tratado de programar un botón para imprimir que llame todos los datos del formulario de excel a un formato en especifico en otra hoja, pero no tengo idea de como hacerlo y quisiera si alguien tendría la amabilidad de...
2 respuestas

Fórmula o macro para ocultar contenido de 2 columnas y que pida contraseña

Tengo una planilla en donde lo que necesito hacer es ocultar el contenido de la misma (osea la columnas se deben seguir viendo pero vacía). Las columnas que necesito ocultar son la E y la I. Pero que usuarios autorizados, mediante una contraseña...
1 respuesta