Dante Amor

Revisa el siguiente ejemplo: Sub ObtenerDatos() Dim rango As Range Dim celda As String, hoja As String, libro As String ' With Application On Error Resume Next Set rango = .InputBox("Selecciona Rango", Type:=8) If rango Is Nothing Then Exit Sub On...

[Ho la y bienvenida a TodoExpertos! Muy bien tu explicación, solamente te faltó el nombre de las hojas: origen y destino. Cambia en la macro "Hoja1" por el nombre de tus hojas origen y destino: Sub copiarDatos() 'Por Dante Amor Dim sh1 As Worksheet,...

Prueba esto: Sub BorrarLinea() Workbooks("Libro2.xlsx").Sheets("Hoja1").Rows(20).Delete End Sub

Para ocultar excel y ver tu aplicación: Sub ocultar() Application.Windows("nombre libro").Visible = False End Sub Para mostrar otra vez tu libro: Sub mostrar() Application.Windows("nombre libro ").Visible = True End Sub Cambia "nombre libro" por el...

Puede ser de estas maneras: Sub consecutivo() Dim i As Long For i = 9 To Range("C" & Rows.Count).End(3).Row Range("A" & i).Value = i - 8 Next End Sub Sin ciclo: Sub consecutivo_sin_ciclo() Range("A9").Value = 1 Range("A9:A" & Range("C" &...

Utiliza lo siguiente: Dias_Transcurridos.Caption = Date - CDate(Fecha_Aumento.Caption)

Te paso la macro: Sub Compara2Columnas() Dim dic As Object Dim i As Long Dim cad As String ' Set dic = CreateObject("Scripting.Dictionary") ' With Sheets("Hoja2") For i = 2 To .Range("G" & Rows.Count).End(3).Row dic(.Range("G" & i).Value & "|" &...

Prueba lo siguiente. Ajusta el rango "B7:B10" en la macro por el rango donde quieras verificar. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B7:B10")) Is Nothing Then If Target.CountLarge > 1 Then Exit Sub If...

Prueba lo siguiente: Windows("Prueba - " & Format(Date, "yyyy_mm_dd") & ".xlsm").Activate Avísame si tienes alguna duda. No olvides la valoración de mi respuesta.

No entiendo cómo vas a realizar el llamado al procedimiento, o cuál es el objetivo. Pero puedes hacerlo de la siguiente manera: En tu userform: Private Sub TexPass_Change() Application.ScreenUpdating = False If TexPass = 123 And Len(TexPass) = 3 Then...