Henry Benitez

Private Sub CommandButton1_Click() 'Por.DAM 'obtener la última fila de la columna A u = Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 8 Then u = 8 'si la ultima fila es menor a 8 entonces u = 8 Cells(u, "A") = TextBox1 End Sub Utilizando Esta...

Ayuda como hago uno

Código para copiar.. Texbox A hoja Excel.. Desde B12 por ejemplo y el resto desde espacios en blanco

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As...

Bueno tengo un formulario.. En cual quiero deshabilitar la X para Salir del formulario y poner un botón CERRAR y el botón me guarde.. Me borre X celdas para un nuevo formato.. Y me cierre el excel.

Hola Dam del Formato que te envíe limitar a 14 items ;) gracias

Hola DAM Tea cuerdas del Formulario que Se puede modificar Y todo eso.. El que em enviaste..Quisiera Limitar..llenar ese Formulario a 14 items no mas Es decir Que no se pase De 14 registros ; Gracias

Bueno tengo un formulario.. En cual quiero deshabilitar la X para Salir del formulario y pone run botón CERRAR y el botón me guarde.. Me borre X celdas para un nuevo formato.. Y me cierre el excel..

Este Código Sub guardarhoja() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Ajuste").Copy With Application.FileDialog(msoFileDialogSaveAs) .Title = "Guardar archivo como" .AllowMultiSelect = False .InitialFileName = mes...

Hola DAM Mira Tengo este Código te acuerdas Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' Por .DAM Select Case Val(TextBox9) Case 164, 184, 4 TextBox6 = Clear TextBox6.Enabled = False Case Else TextBox6.Enabled = True End Select...