Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en VBA

Respuesta en y en 2 temas más a

Como lograr encontrar una fila mediante un código de VBA?

Te anexo el código actualizado Cambia "Z" por la columna donde quieras poner el valor Cambia "dato" por el valor que quieras poner en la celda Private Sub ComboBox2_Change() Sheets("Rinventario").Activate If ComboBox2.ListIndex < 0 Then MsgBox...
Respuesta en y en 2 temas más a

¿Cómo podemos cambiar el valor 0 - 1 por una letra determinada según el valor correspondiente en la celda?

Pon los siguientes formatos condicionales en tu celda Selecciona la celda, entra al Menú Inicio, Formato condicional, Nueva regla En la fórmula pon: =$C$3=1 Presiona el botón "Formato..." En la pestaña Número, selecciona Personalizada En Tipo:...
Respuesta en 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 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 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 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 y en 2 temas más a

Programar Combobox Dependientes VBA Userform

Cambia todo tu código por el siguiente código: Private Sub ComboBox1_Change() 'Por Dante Amor ComboBox2.Clear If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then Exit Sub End If ' For i = 2 To GetUltimoR(Hoja16) If Hoja16.Cells(i, "A").Value =...
Respuesta en y en 3 temas más a

Como avanzar en bucle For VBA sin terminarlo

Tienes que poner un Else Debe ser así: For i=1 to 10 Línea 1 'Código Línea 2 'Código If ... Then 'Condicional 'Que debo poner aquí para que de esta línea pase directamente al 'Siguiente "i" sin pasar por el resto del código, es decir sin 'Ejecutar...
Respuesta en y en 2 temas más a

Me marca error 91 en tiempo de ejecución vba excel

Supongo que tienes el error en esta línea: indRowBase = cell.Row Eso es debido a que no encontró la palabra "name" en la columna "A" de la hoja "Principal". Podrías solucionarlo de esta forma: Cambia estas 2 líneas Set cell =...
Respuesta en y en 3 temas más a

Activar celda de ítem seleccionado en listbox (PARTE2)

Olvídate de seleccionar la celda en la hoja, eso no es una buena practica. Lo más conveniente es encontrar el dato y tener en una variable el objeto del dato. Te explico Private Sub ListBox1_Click() ' 'activa la celda del producto seleccionado en la...