Respuesta
en
Microsoft Excel
y en 1 temas más
a
Unir códigos en VBA para eficientar hojas de cálculo
Envíame el archivo con ejemplos y me explicas lo que necesitas Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Jair Abelardo Bustamante Moreno”
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Listbox: error 380 no se puede escribir en la propiedad rowsource
Te anexo la macro para el evento change de tu combo Los nombres almacenados en el combo deberán ser exactamente iguales al nombre de las hojas, por ejemplo, si almacenaste en el combo "enero", "febrero", etc. Deberás tener una hoja con el nombre de...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Actualización código VBA para enviar adjunto en correo masivos
Te anexo la actualización. En la columna Z escribirá si el correo no fue enviado Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("H1").Column Columns("Z").Clear For i = 2 To Range("B" &...
Respuesta
en
VBA
y en 1 temas más
a
Estructura de función COUNTIF en VBA
No entendí muy bien tu ejemplo. Tampoco puedo saber en cuál celda quieres el resultado. En VBA podría ser así: Sub Contar() 'Por.Dante Amor ' Select Case Range("B5") Case "Colocar Tienda": res = "" Case "Sucursal Norte": res =...
Respuesta
en
VBA
y en 1 temas más
a
Ocultar una fila si se cumple una condición en una celda con una función
Ejecuta la siguiente macro Sub Ocultar_Fila() 'Por.Dante Amor ' Rows("16:17").Hidden = False If Range("B4") = "Decr. Act." Then Rows(16).Hidden = True Else Rows(17).Hidden = True End If End Sub Si quieres que funcione de forma automática, pon la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Insertar Fórmula en un código de VBA
Si utilizas la grabadora de macros te pone algo como esto: Sub Macro15() ' ' Macro15 Macro ' ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]=1,IF(R1C16>RC[8],""Nuevo"",IF(R1C15>RC[7],""Actual"",""Nuevo"")),IF(RC[8]>R1C15,""Actual"",""Nuevo""))" End Sub Lo que...
Respuesta
en
VBA
y en 2 temas más
a
Como Mejorar código de vba
Te anexo la macro actualizada. Como en el ejemplo, podrás agregar más rutas destino. La macro copiará el archivo origen en todas las rutas que pongas Al final te desplegará las rutas donde no se pudo copiar Sub CopiarArchivo2() 'Act.Por.Dante Amor...
Respuesta
en
Programación
y en 2 temas más
a
Realizar dos acciones con un mismo botón
Te anexo la macro con los cambios. Primero revisa si existen filtros, si hay filtros los quita, si no hay filtros entonces se posiciona en la primera celda vacía Sub quitar_filtros() Dim ultima As Long 'Revisa filtro de autofiltro If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como utilizar el Método Find y FindNext en vba?
Te anexo el código actualizado Private Sub txt_nombre_Change() 'Por.Dante Amor Set r = Hoja1.Range("H:H") Set b = r.Find(txt_nombre, LookIn:=xlValues, LookAt:=xlWhole) If Not b Is Nothing Then celda = b.Address Do 'detalle If Hoja1.Cells(b.Row, "W")...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Excel VBA manpular objetos como parte de una colección.
Te anexo el código Private Sub UserForm_Click() Dim botones As Collection Set botones = New Collection Dim n As Integer Botones. Add "CommandButton1" Botones. Add "CommandButton2" Botones. Add "CommandButton3" Botones. Add "CommandButton4" Botones....