Dante Amor

Las fechas se almacenan en formato inglés, así está construido el código de VBA, lo que puedes hacer es lo siguiente: Range("D5") = Format(TextBox1, "mm/dd/yyyy") Prueba y me comentas Saludos. Dante Amor Si es lo que necesitas.

Si pones la instrucción al principio del programa, aplica para todo el programa. Sub programa() On Error Resume Next ' 'instrucciones ' ' End Sub Pero lo más conveniente es que trates de identificar cuál es el problema y puedas controlarlo. Por...

Para enviar solamente una hoja. Te anexo la macro. Cambia "Hoja1", por el nombre de la hoja que quieras enviar. Sub EnviarHoja() 'Por.Dante Amor hoja = "Hoja1" ' Application.DisplayAlerts = False Application.ScreenUpdating = False ruta =...

Te anexo el código Private Sub CommandButton1_Click() 'Por.Dante Amor If InStr(1, TextBox1, "daniel") > 0 Then MsgBox "texto encontrado" Else MsgBox "no existe el texto" End If End Sub Saludos.Dante Amor

Te anexo una propuesta tal y como te había comentado, para pintar las celdas. Esta sería la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("G:G,I:I,K:K,M:M,O:O")) Is Nothing Then If...

Te anexo la macro. Te comento que en tu ejemplo pusiste: "A1 copiarla y pegarla en B1, A2 en B10, A3 en B20" En realidad de B1 a B10 hay 9 espacios y de B10 a B20 hay 10 espacios, entonces si quieres una separación de 10 espacios, A2 en B11 y A3 en...

Te anexo la macro Sub InsertarCarpeta() 'Por.Dante Amor ruta = ThisWorkbook.Path Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Selecciona una carpeta" .AllowMultiSelect = False .InitialFileName = ruta If .Show <> -1...

No hay una propiedad para centrar el texto a lo alto del textbox. Solamente está la propiedad "TextAlign" para alinear el texto a la izquierda, centrar o a la derecha. Si quieres que se vea centrado en lo alto, puedes cambiar el tamaño de la letra...

En tu ejemplo pusiste celda "A", pero "A" no es una celda, es una columna, ¿quieres qué se copie toda la columna?

Prueba con lo siguiente: Dim Copia As String ' CREAMOS UNA COPIA DEL ARCHIVO PROGRAMA INFORME SIN FORMULAS NOMBRE1 = "INFORME 2-A No." NOMBRE2 = Hoja6.Range("V3") NOMBRE3 = Hoja6.Range("Y3") Copia = Left(ThisWorkbook.FullName, _...