Cual es el problema en esta macro, me arroja un error de automatización y unos números

Preguntas y respuestas relacionadas

Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k5:k300")) Is Nothing Then Exit Sub End If ' If Target >= 0...
1 respuesta

Copiar rango de celdas según condición VBA

Necesito de su ayuda en lo siguiente, quiero copiar un rango de celdas y pegarlas en otra ubicación solo si cumple una condición, por ejemplo tengo una columna digamos B:B la cual tiene valores como nombres de personas en cada celda por ejemplo b1 =...
2 respuestas

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Macro para generar un reporte de excel con condicionales

Solicito de su ayuda para realizar la siguiente operación, requiero una macro que me permita generar un reporte de excel y que se grabe en un libro nuevo de excel tomando el nombre del reporte las columnas ha exportar no son un rango ya que están...
1 respuesta

Copiar varias Filas desde diferentes hojas y insertarlas a unan sola hoja

My buenas tardes expertos experto estén muy bien. Mi duda es la siguiente: Tengo un archivo con varias hojas que tienen nombre de: NANICA, REPUESTOS y IPOD, son listas de precios. Lo que deseo hacer es que si a cualquiera de estas hojas se le ingresa...
1 respuesta

Estoy intentando esta macro de celda libre de un rango de celdas

Esta es la macro que quiero hacer: Sub Copiar_a_Registro() 'Hoja activa Range ("G10") Range ("G42") 'Hoja destino ("Provedores") Sheets("Provedores").Select filalibre = Range("B5:B37").End(xlUp).Row + 1 If filalibre < 5 Then filalibre = 5...
1 respuesta

Error en bucle for por declaracion de variable

Viendo una de tus respuestas di con una solución para llenar varios ComboBox. Mi código es el siguiente Private Sub Worksheet_Activate() Dim CN As Object Dim RsProfe As Object Dim t, c, cb, o As String 'Tabla, campo, consulta, objeto formulario Dim...
1 respuesta

Crear y renombrar hojas automáticamente.

Tengo un rango de celdas con 2 columnas: AD y AE. En la primera tengo metidos valores correlativos y en la segunda tengo metiendos también valores. Necesito crear una macro que cuando la ejecute me cree tantas hojas nuevas como celdas ocupadas tengo...
1 respuesta

ProgressBar

En mi aplicación utilizo una barra de progreso para indicar cuanto falta para que un algoritmo termine su ejecución, pero el proceso de llenado de la barra no se hace linealmente, es decir, primero está un tiempo vacío y cuando el algoritmo acaba la...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema