Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como Registrar errores de macro y evitar el depurador
Te anexo un ejemplo Private Sub CommandButton1_Click() 'ERROR A PROPOSITO PARA ENTRAR AL VBA Dim clave As String clave = TextBox1.Value If clave <> "piernitas" Then Exit Sub Else On Error Resume Next dsadsad.vdlkvsldvkmsd If Err.Number <> 0 Then...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Necesito copiar un rango de varios ficheros a otro diferente, estoy usando esta macro pero necesito copiar solo valores
Cambia esta línea H2. Range("E8:AB8"). Copy h1. Range("E" & j) Por estas H2. Range("E8:AB8"). Copy h1.Range("E" & j).pastespecial xlvalues [' No olvides valorar la respuesta.
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Borrar los totales en un base de datos si cambian de fila, mes con mes
Realiza lo siguiente. - Carga tu base de datos. - Ejecuta la macro que borra las columnas - Graba una macro y pon las fórmulas en la parte de abajo. - Regresa a detener a macro. Pon aquí la macro para revisarla y hacer los ajuste para que funcione...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Rellenar Celda según Texto - VBA
Te anexo la macro actualizada, solamente completa el resto de las palabras en el array Sub Poner_Color() Range("AB2:AB" & Range("E" & Cells.Rows.Count).End(xlUp).Row).Select pls = Array("APTO", "NORTE", "CLL", "CRA", "DIAG", "VRDA", "HACIENDA", _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Botón checkbox personalizado en Excel
Pon el siguiente código en un módulo Sub Imagen1() ActiveSheet.DrawingObjects("imagen1").Visible = False ActiveSheet.DrawingObjects("imagen2").Visible = True End Sub ' Sub Imagen2() ActiveSheet.DrawingObjects("imagen2").Visible = False...
Respuesta
en
VBA
y en 2 temas más
a
Macro para buscar doc docx y pasarlo a pdf
Te anexo la macro para convertir los doc a pdf. Solamente pon tus carpetas que tengan los documentos que quieras convertir en la columna A de tu hoja, como se muestra en la siguiente imagen: No te pongo la macro para leer carpetas y subcarpetas,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Modificación en macro para copiar
Prueba con la siguiente Sub CopiarCeldasAlumnos() Dim wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range Set wsOrigen = Worksheets("BD_Alumnos") Set wsDestino =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Adaptar barra de progreso a mi macro
En lugar de la barra de progreso, te propongo una más simple. En la barra de estado de excel (esquina inferior izquierda), va a aparecer un contador, indicando el número de fila procesada y el número de filas totales a procesar. De esa forma pueden...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Error de suma total en un textbox
Prueba con lo siguiente: Private Sub Sumar() Dim Suma As Double If TextBox1.Value = "" Then t1 = 0 Else t1 = CDbl(TextBox1.Value) If TextBox2.Value = "" Then t2 = 0 Else t2 = CDbl(TextBox2.Value) If TextBox3.Value = "" Then t3 = 0 Else t3 =...
Respuesta
en
Visual Basic
y en 1 temas más
a
¿Buscar en una base de datos con una palabra?
En estos casos lo que necesitas utilizar son controles de formulario o de control activex o crear un userform. Si creas un userform puedes poner un textbox y un listbox, entonces cuando empieces a escribir algo en el textbox, en el listbox aparecerán...