Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problemas con un código en EXCEL VBA
La manera simple de solucionarlo es así: Después de esta línea: ValorABuscar = TrackingLabel.Value Pon esta línea: If ValorABuscar = "" then exit sub Pero lo ideal es que sigas las siguientes recomendaciones: 1. En la medida de lo posible evitar el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Bloquear (proteger) fila y pintarse de color al llenarse 3 datos de la misma
Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 3 Then Exit Sub If Not Intersect(Target, Range("A:L")) Is Nothing Then f = Target.Row If Cells(f, "B") <> "" And _ Cells(f, "C") <> "" And _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problema con el alto de fila en Excel
Puedes poner la macro para revisarla
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Cómo puedo hacer que un textbox dentro de un formulario vba capture datos de un rango de celdas disparados por un combobox?
Cambia el evento del combo a Change Supongo que en la hoja1 tienes tus datos Utiliza lo siguiente: Private Sub ComboBox1_Change() Set h = Sheets("Hoja1") 'hoja con datos 'buscar en la columna A Set b = h.Columns("A").Find(ComboBox1, LookIn:=xlValues,...
Respuesta
en
VBA
y en 3 temas más
a
Exportar hojas de calculo de número variable a otro libro
Te anexo la macro Sub Exportar_Hojas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Application.StatusBar = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") Set h2 = l1.Sheets("MENU") Set h3 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Comparar columnas y si no son iguales insertar celda en blanco
Te anexo la macro. El resultado quedará en las columnas H e I Sub Ordenar_Numeros() 'Por.Dante Amor Application.ScreenUpdating = False j = 0 ant = "" Columns("E:I").Clear ' 'Quitar duplicados col B u1 = Range("B" & Rows.Count).End(xlUp).Row...
Respuesta
en
Visual Basic
y en 4 temas más
a
Validar si encuentra archivo adjunto VBA macro gmail
Te anexo el código actualizado, en la columna "Z" te pondrá el resultado: "no existe el archivo", "El mail se envió con éxito" o "Se produjo el siguiente error" Public impresiones As Integer Sub SendMail_Gmail2() Dim myrange As Range Dim contador As...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para filtro rápido en hoja excel y msgbox en caso de no haber dato filtrado
Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor ' If Not Intersect(Target, Range("F1")) Is Nothing Then If Target.Count > 1 Then Exit Sub If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Lista desplegable de una BD al elegir un código
Envíame tu archivo con los formularios y me explicas con un ejemplo la relación que necesitas. Adapto la macro y te regreso el archivo Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Fabiola Arce”
Respuesta
en
Visual Basic
y en 2 temas más
a
Tengo un problema con una macro, al ejecutarla en Visual Basic me aparece un error "Se ha producido el error 1004 en tiempo de."
Puedes poner la macro completa y también en cuál línea se detiene.