Dante Amor

Prueba la siguiente opción: Sub Numerar() Dim i As Long, j As Long, k As Long For i = 2 To Range("A" & Rows.Count).End(3).Row If Range("A" & i) = "PRODUCTO" Then j = j + 1 Range("B" & i).Value = j ElseIf Range("A" & i) = "SERVICIO" Then k = k + 1...

Puedes poner otra vez la macro, pero utiliza el icono para insertar código:

Si lo llamo desde el formulario login aparecerá con todas las etiquetas y los commandbutton activos, pero si lo llamo desde otro punto del libro Puedes poner aquí la instrucción de esos "llamados".

Puedes poner aquí la macro para revisarla. Utiliza el icono para insertar código.

Prueba así: Sub test() Dim i As Long, sHoja As String sHoja = "añadir" With Worksheets("hoja1") For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row If .Cells(i, "B").Value = "" Then If Not Evaluate("ISREF('" & sHoja & "'!A1)") Then...

Prueba lo siguiente: Public ok As Byte 'permite habilitar la impresión Public marca As Byte 'indica tipo de impresión Sub macroImpresion() Dim r As Long, n As Long, sRng As String 'Imprime el desprendible según la marca 'habilita la impresión ok = 1...

Parte de los bloques de texto que necesito que cambien automáticamente, están ubicados en el encabezado Utiliza el siguiente código para cambiar datos en el encabezado: Sub CorrespondenciaConWord() Dim patharch As String, textobuscar As Variant,...

Prueba lo siguiente: Sub blanco_agendaHoy_ars() Dim f As Range, col As Long Set f = Rows(2).Find("Titulo", , xlValues, xlWhole) If Not f Is Nothing Then col = f.Column - 1 Sheets("ABM").Select On Error Resume Next If Sheets("ABM").AutoFilterMode Then...

Pon el siguiente código en los eventos de la hoja "Historico" Private Sub Worksheet_Activate() Dim f As Range With Sheets("Indicadores") Set f = Rows(2).Find(.Range("B3"), , xlFormulas, xlWhole) If Not f Is Nothing Then Cells(3, f.Column).Value =...

Y bienvenida a TodoExpertos. Podrías poner un ejemplo del nombre del destinatario y cómo se llama el archivo. ¿En cuál carpeta se encuentran los archivos? ¿Cada mes cambian de nombre? Si cambian de nombre, ¿puedes poner ejemplos?