Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar en TextBox Mostrar en ListBox y eliminar
¿Primero quieres hacer una búsqueda y después poder eliminar un registro? Envíame tu archivo con tu userform para adaptar el código Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Razgriz Edge”
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Contar el número de veces que se repite una serie de 10 veces o más, el valor 0 de forma seguida.
Lo más práctico es que los números los tengas en celdas hacia abajo, por ejemplo: Entonces, en la celda B2 pon esta fórmula =SI(A2=0;SI(B1<10;B1+1;0);0) Copia la fórmula hacia abajo hasta el final de tus números. En la celda C2 pon esta fórmula:...
Respuesta
en
Visual Basic
y en 1 temas más
a
Insertar firma con imagen a macro mails automático
Cambia "firma.jpg" por el nombre del archivo que tiene la firma y logo Private Sub Workbook_Open() 'envía mail 'Por.Dante Amor ' ' Sheets("Task Status").Select ufila = Range("B" & Rows.Count).End(xlUp).Row For i = 4 To ufila If Cells(i, 7) <=...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Concatenar filas si coinciden columnas
Prueba con la siguiente macro y me comentas Cambia "Hoja1" por el nombre de la hoja donde tienes tus datos Cambia "Hoja2" por el nombre de la hoja donde quieres los resultados Sub Concatenar_Datos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Ejecutar macro en un rango de celdas
Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = 1 Then 'MsgBox "macro1" Call Macro1 End If End If End Sub...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para colocar negrita un texto específico dentro de una celda
Te anexo la macro Sub Texto_Negrita() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row ini = InStr(1, Cells(i, "A"), "(") If ini > 0 Then fin = InStr(1, Cells(i, "A"), ")") Cells(i, "A").Characters(Start:=ini, Length:=fin - ini +...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Combinar los datos de varios libros en otro libro en Excel (2013)
En esta línea tienes un par de problemas: Workbooks(libro). Worksheets(hoja).Cells(fila, j) = Workbooks(Filename). Worksheets(hoja). Cells(i, j) Al inicio de la macro copia(filename) estás declarando la variable fila: Dim fila As Integer Entonces...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo pegar datos en un rango de celdas dependiendo los valores de una columna?
Te anexo la macro Sub Macro3() ' Por.Dante Amor ' Range("A1"). Copy Range("A4:A" & Range("B" & Rows. Count).End(xlUp). Row). PasteSpecial xlPasteAll End Sub NOTA: En la celda A1 deberás tener una fórmula, en tu ejemplo tienes un texto "sum(b1-c1)" Lo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Insertar firma con logo a macro mails automático
Te anexo la macro actualizada Cambia en la macro "c:\trabajo\" por la carpeta donde tienes el archivo con la firma y logo. Cambia "firma.jpg" por el nombre del archivo que tiene la firma y logo Private Sub Workbook_Open() 'envía mail 'Por.Dante Amor...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como pasar items de un listbox a una hoja en excel dependiendo de los datos de la hoja de excel
Entiendo lo siguiente, quieres actualizar la hoja según el número de SV. Para eso tienes que buscar el número de SV en la hoja2, en la columna "I", obtener la fila y entonces actualizar los datos. No pusiste tu código completo, reemplaza tu código...