Dante Amor

No recomiendo tener un msgbox por cada registro que vas a eliminar, ya estás en un userform, ya presionaste el botón eliminar y todavía otro mensaje para confirmar y otro mensaje para informar. Te recomiendo lo siguiente. Prueba y me comentas:...

Prueba lo siguiente: Sub correo5b() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = "Confirmación de Pedido N° " & Range("D10").Value ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & arch & ".pdf", _...

Cambia esta línea h2.Rows(b.Row).Select Por esta: h2.Range("B" & b.Row, "C" & b.Row).Select

Podrías responder lo siguiente y ese orden: ¿Cuántos registros tienes en tu hoja? ¿Existen celdas vacías en la columna C? ¿Siempre los duplicados son 2 registros? Es decir, no hay casos en los que aparezca 3 veces el mismo datos

Prueba la siguiente: =SI(A2<=FECHANUMERO("31/03/2014"),0.5,0.25)*D2

Aquí otra función a considerar. Function ConvPalabras(pal As String) As String Dim tx As Variant, c As String Dim f As Range, i As Long ' tx = Split(pal & " |", " ") c = WorksheetFunction.Proper(tx(0)) & " " For i = 1 To UBound(tx) Set f =...

Aquí una macro con otro enfoque para considerar: Sub Contar_Numeros() Dim c As Range Dim dic As Object ' Range("B2:C" & Rows.Count).ClearContents Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("A2", Range("A" & Rows.Count).End(3))...

Utiliza la siguiente fórmula en la celda C2 y copia hacia abajo: =SI.ERROR(BUSCARV("*"&B2&"*",E:E,1,0),SI.ERROR(BUSCARV("*"&IZQUIERDA(B2,ENCONTRAR(" ",B2&" ")-1)&"*",E:E,1,0),"")) Nota: si utilizas punto y como ( ; ) como separador de argumentos,...

Nota: con el evento Exit, el color cambia cuando sales del Textbox Otra opción: Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox24 Select Case .Value Case "", Empty: .BackColor = RGB(234, 234, 234) Case Is < 1260:...

Entra opciones de excel, Avanzadas, Mostrar opciones para este libro y selecciona la opción Mostrar fichas de hojas.