Dante Amor

Utiliza lo siguiente Dim variable As Date variable = DateSerial(Year(Date), Month(Date), 1) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

En tu formulario dale doble click a tu botón. Te lleva al código del commandbutton, entonces copia la macro, te debe quedar algo así: Private Sub CommandButton1_Click() 'Por.DAM Application.ScreenUpdating = False Application.DisplayAlerts = False If...

Para expresarlo con If sería algo como esto: Private Sub CommandButton3_Click() Dim ref As Integer ref = t1.Value nom = Application.VLookup(ref, Sheets("Hoja1").Range("A:G"), 2, 0) lcd = Application.VLookup(ref, Sheets("Hoja1").Range("A:G"), 3, 0)...

H o l a: Te anexo la macro con algunos ajustes: Sub Guardar_correoPDF() ' ' GuardarPDF Macro ' Dim dest As String, arch As String, ruta As String Dim objOutlook As Object Dim objMail As Object ' ruta = "C:\Users\Servicio...

H o l a: Te anexo la macro para todas las hojas. Cambia en la macro "A" por la columna en donde se encuentran los números. Sub capicuo() 'Por.Dante Amor col = "A" 'columna con números For Each h In Sheets For i = 1 To h.Range(col &...

H o l a: Te anexo el enlace para establecer impresoras, en la respuesta encontrarás las indicaciones para establecer las impresoras. Cómo establecer una de las 2 impresoras en una impresión con vba excel? Otra opción más práctica y más sencilla; pon...

En esta instrucción se indica el lapso de tiempo en Horas : minutos : segundos Entonces esto tiene un intervalo de un segundo TimeValue("00:00:01") Para 3 minutos: TimeValue("00:03:00") Par 2 horas: TimeValue("02:00:00") Cambia el parámetro según el...

H o l a: Te anexo las 2 macros, sigue las instrucciones. Macro para actualizar la hoja "OTProceso". Lo que hace es leer todos los registros de la hoja "ListadoOT", busca la OT en la hoja "OTProceso", si no la encuentra entonces agrega el registro. De...

Te anexo la macro actualizada Sub CommandButton1_Click() 'GUARDA LAS HOJAS COMPLETAS PREVIAMENTE SELECCIONADAS Dim hoja As Control x = 0 For Each hoja In Me.Controls If Not hoja.Name = "CommandButton1" Then x = x + 1 If hoja.Value = True Then...

H o l a : En un correo nuevo envíame tu archivo para adaptar la macro.