Henry Boom

Henry Boom

 950 puntos  México @la_flower desde - visto

Preguntas y respuestas en Visual Basic

Pregunta en y en 2 temas más

Macro de ordenamiento funciona en ocasiones

Con el gusto de saludarlos y preguntarles, si existe alguna otra forma de hacer funcionar bien una macro. Estoy realizando un filtro de orden personalizado en una Hoja que esta ligado a una segmentación de datos, donde me filtra por vendedor. Pero al...
Respuesta en y en 2 temas más a

Como abrir un archivo .PDF con una macro en Excel

Respecto a tu duda, el archivo lo puedes mandar llamar directo desde su ubicación. Workbooks.Open Filename:="C:\Users\ktathiridive\Desktop\TU ARCHIVO.pdf"
Respuesta en y en 3 temas más a

Una macro para limpiar celdas bloqueadas

Prueba este código y modifica el rango en la variable hoj Sub celdasdesproteger() ActiveSheet. Unprotect Beep Dim Estilo, Mensaje, Título, Respuesta Mensaje = "Realmente deseas borrar todos los datos" Título = "¡¡ALERTA!!" Estilo = vbYesNo +...
Respuesta en y en 2 temas más a

Quiero eliminar filas de las parejas de datos duplicados en Excel

Anexo macro que elimina los duplicados de la columna "Email": Sub repetidos() 'Opcional 'Application.ScreenUpdating = False Range("E2").Select Do While Not IsEmpty(ActiveCell) x = WorksheetFunction.CountIf(Range("E:E"), ActiveCell) If x > 1 Then...
Respuesta en y en 1 temas más a

Pasar información a diferentes hojas de excel

Eh realizado una pequeña modificación, indiqueme si le funciona. Option Explicit Sub ExtractReps() Dim ws1 As Worksheet Dim wsNew As Worksheet Dim rng As Range Dim r As Integer Dim c As Range Set ws1 = Sheets("Hoja1") 'aqui va el nombre de tu hoja...

Desbloquear proyectos en Visual Base.

Acá te explican como quitar la contraseña espero te ayude. https://www.youtube.com/watch?v=8kt2NThkyUc
Respuesta en y en 2 temas más a

Encontrar últimos 5 cspturados macro u fórmula

Yo no se mucho de macros, pero esto funciona. sub seleccionar() UltimaFila5 = Range("B" & Rows.Count).End(xlUp).Row - 4 UltimaFila1 = Range("B" & Rows.Count).End(xlUp).Row Range("B" & UltimaFila5 & ":B" & UltimaFila1).Select ens sub