Error en ejecución de macro
Tengo esta macro que me permite contar desde otra hoja los registros que existen en la hoja2, me funcionaba ok en la pc de mi casa pero al llevarlo al trabajo me muestra un error de objet, quisiera ayuda por favor, gracias(dejo el código)
Sub ContarRegistros()
Set h = Sheets("Hoja1)
Set h2 = Sheets("Hoja2")
u = h.Range("A" & Rows.Count).End(xlUp).Row
If u < 1 Then u = 6
contar = WorksheetFunction.CountA(h.Range("A6:A" & u))
h2.TextBox1 = "AU" & Format(contar + 1, "000000")
End Sub
1 Respuesta
Te faltan las comillas de cierre después de "hoja1" en la línea donde declaras h. ¿Puede ser ese el fallo?
Sub ContarRegistros()
Set h = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h.Range("A" & Rows.Count).End(xlUp).Row
If u < 1 Then u = 6
contar = WorksheetFunction.CountA(h.Range("A6:A" & u))
h2.TextBox1 = "AU" & Format(contar + 1, "000000")
End Sub
¡Gracias! No era eso el asunto, solo había que configurar el centro de confianza de la pc que trabajo ya que esta la hice aquí en mi casa y luego la lleve a mi trabajo, igual gracias, vale la observación.
