Pregunta en
Microsoft Excel
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
Microsoft Excel
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
Visual Basic
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
Visual Basic
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
Microsoft Excel
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...
Respuesta
en
Visual Basic
a
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
Microsoft Excel
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