Dante Amor

Como te había comentado el código se hace un poco más complejo al tener celdas combinadas. Sería más práctico si utilizas tu base de esta forma: Normalmente así es como se trabaja con una base de datos, de esa forma es más práctico, crear, insertar...

Cambia en tu macro esta línea ObjWord. Activate Por estas: 'copia la imagen de la hoja3 Sheets("Hoja3"). DrawingObjects("1 imagen"). Copy ObjWord. Activate objWord.Selection.PasteAndFormat Type:=wdFormatOriginalFormatting Lo que hace es copiar la...

Te anexo la macro. Cambia en la macro "B2" por la celda que contiene el nombre del archivo. Si en la celda tienes una fecha, entonces cambia la línea arch = ActiveSheet.Range("B2").Value Por esta arch = format(ActiveSheet.Range("B2").Value,...

Esta sería una manera, cuando pasas el mouse por el botón se pone azul, cuando pasas el mouse por el userform se pone rojo. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)...

Esta sería una forma. Supongo que al iniciar el userform cargas los datos en el combo, por ejemplo Private Sub UserForm_Activate() For i = 2 To Range("B" & Rows.Count).End(xlUp).Row ComboBox1.AddItem Cells(i, "B") Next End Sub Entonces después de...

Te anexo el código actualizado Private Sub UserForm_Initialize() generic.Clear Set h2 = Sheets("hoja2") 'estableces en el objeto h2 la hoja2, For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row If h2.Cells(i, "A").Value <> "" Then generic.AddItem...

Prueba con lo siguiente: Private Sub CommandButton1_Click() 'Por Dante Amor If Not TextBox1.Value = Empty And Not Label3.Caption = Empty Then MsgBox "ya haz iniciado el verificador", , "AVISO" Exit Sub End If ' If TextBox1.Value = Empty Then MsgBox...

Si los correos están en una celda y están separados por el caracter pipe ( | ), entonces puedes utilizar la función de excel Texto en columnas. Selecciona la celda o celdas que quieras separar. Entra al menú Datos, Texto en columnas, Selecciona la...

Prueba con lo siguiente. Pon la macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'pinta de rojo cuando se captura un dato en el rango 'y en la columna D el valor es menor a 1 Set rango =...

Pon la siguiente fórmula en la celda B1 =INDICE(A1:A10,SUMAPRODUCTO((B2:B10=MAX(B2:B10))*FILA(B2:B10))) Nota: Cambia en la fórmula la coma (,) por punto y coma (;) si utilizas punto y coma como separador de argumentos. Cambia en la fórmula los...