vikmar

sub cuentarenglones dim renglones as integer dim col as integer ' Aqui esta la columna que quieres contar col=1 renglones=Cells(65536, col).End(xlUp).Row 'renglones tiene el ultimo renglon con datos end sub Saludos y no olvides de cerrar la pregunta...

Seria con esta función =MONTH(TODAY())-1 Y ya en el formato de numero Cambiar a custom ("mmm") Saludos y no olvides cerrar la pregunta, una vez que no tengas dudas

Para quitar la confirmación Application.DisplayAlerts = False Para volver a activar la confirmacion Application.DisplayAlerts = True Saludos y no olvides de cerrar la pregunta

Aquí esta tu código, te faltaba la condición else y mover el endif después de estas condicionantes. Saludos y recuerda de calificar Private Sub CommandButton8_Click() Dim Mensaje, Estilo, Título, Respuesta As String fil = ActiveCell.Row Mensaje =...

La instrucción que buscas es . Attachment. Add myfile donde myfile = a la ruta completa mas el nombre del archivo que quieres colocar como adjunto, ejemplo c:\test.xls

Sustituye If (Cells(x, z).Value = Cells(y, z).Value) Then Cells(y, z). EntireRow. Clear Por If (Cells(x, z).Value = Cells(y, z).Value) Then Cells(y, z).value=""

=if(k6="","",BUSCARV(K6;FORMULAS!$B$18:$C$25;2)) Así solamente busca si la celda K6 tiene algo, sino, coloca nada en el resultado de la fórmula Saludos y no olvides de cerrar la pregunta

Puedes utilizar el AND Por ejemplo =IF(AND(A1>6,A1<9),"Dentro del rango","Fuera del rango") El resultado seria si A1 esta entre 6 y 9 te dará "Dentro del rango" Otro valor te dará "Fuera del rango" Espero que esto te ayude y no olvides cerrar la pregunta