Dante Amor

h o l a: Te anexo la macro: Sub CopiarCelda() 'Por.Dante Amor Set h1 = Sheets("listado") Set h2 = Sheets("traspaso") u1 = h1.Range("F" & Rows.Count).End(xlUp).Row u2 = h2.Range("D" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u2, "D") = h1.Cells(u1, "F")...

H o l a: Estas son las macros: En el evento de thisworkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor Sheets("inicio").Visible = -1 For Each h In Sheets If h.Name <> "inicio" Then h.Visible = 2 End If Next ThisWorkbook.Save...

H o l a: tienes que poner el siguiente evento en tu formulario: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Por.Dante Amor ActiveWorkbook.Save ActiveWorkbook.Close End Sub

H o l a: Te anexo la macro para filtrar y quitar el filtro: Sub NuevoFiltro() 'Por.Dante Amor u1 = Range("A" & Rows.Count).End(xlUp).Row u2 = Range("J" & Rows.Count).End(xlUp).Row Range("A5:H" & u1).AdvancedFilter Action:=xlFilterInPlace, _...

Cambia el msgbox por esta línea: MsgBox "La contraseña es incorrecta. Por favor vuelve a escribirla", , "CONTROL DE DEPARTAMENTOS"

H o l a: Te anexo la macro actualizada Sub Macro4() 'Act.Por.Dante Amor f = ActiveCell.Row Range("C" & f & ":H" & f).Copy With Range("J" & f).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0...

H o l a: Esta es la instrucción Private Sub CommandButton1_Click() Sheets("Hoja1").PrintOut End Sub Cambia "Hoja1" por el nombre de la hoja que quieras imprimir.

H o l a: Te anexo la macro actualizada Sub ConvertirTxt() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecciona una carpeta"...

H o l a: Quedaría así: Sub crear_txt() 'por luismondelo ruta = ThisWorkbook.Path & "\" Open ruta & "PUNTO.SCR" For Output As #1 Range("D2").Select Do While ActiveCell.Value <> "" dato = ActiveCell.Value Print #1, dato ActiveCell.Offset(1, 0).Select...

Tienes 2 preguntas pendientes por valorar: Ordenar columna con números automáticamente con macro Mostrar en un listbox, datos de 2 tablas relacionadas access No dejes pendientes respuestas sin valorar. Valora las respuestas y seguimos con tus nuevas...