Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que de acuerdo a un dígito en la celda la deje en excel
Puedes poner varios ejemplos, en cuál columna tienes los números con 4 cifras y en cuál columna quieres el resultado.
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Copiar celdas y pasar a la siguiente de modo automático
Te anexo la macro actualizada Sub COPIAR() ' COPIAR Datos i = 16 Do While Cells(i, "B") <> "" i = i + 1 Loop Range("B10:N10").Copy Range("B" & i) Range("B10:N10").ClearContents Range("B10").Select End Sub . 'S aludos. Dante Amor. Recuerda valorar la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Clasificar datos por semestre excel VBA
Te anexo la macro Sub reporte1() ' '***Por Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("RegCertificado") 'origen Set h2 = Sheets("Plantilla") 'destino ' h2.Rows("2:" & Rows.Count).ClearContents ' dni = h2.Range("B1") If dni = ""...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo obtener la letra de la unidad del libro excel que tengo activo?
Esta puede ser una opción: MsgBox ("La ruta del Libro es " & Left(ActiveWorkbook.Path, 2)) La función Left te trae 2 caracteres, por ejemplo U: Si quieres 3 caracteres , de esa forma obtendrías U:\ MsgBox ("La ruta del Libro es " &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hacer un VLookup con una macro y que al encontrar el valor me ponga un rago de celdas y no solo un valor
Te anexo la macro para buscar el CURP de E4 en la hoja NB1, tal como lo pediste Sub Buscar_Curp() 'Por.Dante Amor Set h1 = Sheets("CAPTURA TOTAL") Set h2 = Sheets("NB1") h1.Select If h1.Range("E4") = "" Then MsgBox "Captura el curp"...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Necesito Imprimir varias hojas de excel por medio de una Macro pero al dar Click en Imprimir no funciona
Te anexo las macros Private Sub CommandButton1_Click() 'Por.Dante Amor For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then h = ListBox1.List(i) Sheets(h).PrintOut Copies:=1, Collate:=True End If Next End Sub ' Private Sub...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Copiar item de listbox a partir de una celda especifica
'H o l a: Te ayudo con la primera petición. Envíame tu archivo con el formulario, me explicas cuál formulario, qué datos tengo que poner, qué debo hacer y qué esperas como resultado.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar un dato en un libro y obtener el nombre de la hoja donde se encuentre
Te anexo la macro actualizada Sub Buscar() 'Act.Por.Dante Amor Set h1 = Sheets("Poliza") num = h1.Range("C11") For Each h In Sheets Set b = h.Columns("B").Find(num, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Su póliza se encuentra en el mes "...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Excel que envía por mail el texto contenido en varias celdas que varían dependiendo del valor ingresado en un textbox
No puedo descargar archivos, envíame tu archivo por correo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Eugenio Lemes” S a l u d o s . D a n t e A m o r
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Busca V en distintas Hojas con Valores en Celda
Por ejemplo, pon el dato a buscar en C2, el nombre de la hoja en D2 y la fórmula en E2: =BUSCARV($C$2;INDIRECTO(D2&"!$A$1:$B$32");2;0) Lo que hace la función Indirecto( ), es tomar el nombre de la hoja de la celda D2 . 'S aludos. Dante Amor. Recuerda...