Dante Amor

H o l a: Pon lo siguiente en los eventos de thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Por.Dante Amor hoja = "presupuesto" 'Verifica si la hoja existe For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then existe = True End...

H o l a: Con lo siguiente seleccionas todos los registros del listbox, pero no significa que los podrás copiar y pegar como si fuera un texto Private Sub CommandButton2_Click() Dim f As Long ListBox1.MultiSelect = 1 For f = 0 To ListBox1.ListCount -...

Prueba con lo siguiente: Sub Extraerdatos() 'Act.Por.Dante Amor Dim MiPc, Carpeta, Archivos, Archivo Dim Fila ' Application.DisplayAlerts = False Application.ScreenUpdating = False Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta =...

H o l a: Envíame un correo nuevo. En el correo me envías la última versión de tu archivo que tengas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “carlos arana” y el título de esta pregunta.

En el optionbutton6, me faltó un Exit Sub: If OptionButton6 Then 'Agregar registro Set b = Columns("A").Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "El nombre ya existe" TextBox1.SetFocus Exit Sub End If Range("A" & Range("A" &...

Te anexo el código Private Sub INGRESAR_Click() ' 'Macro grabada por Adriana ' Application.ScreenUpdating = False Sheets("BD").Select Dim final As Double If torre.Value = "" Then final = Sheets("BD").Range("B" & Rows.Count).End(xlUp).Row Else final =...

Para ordenar se requieren varios datos: Por cuál o cuáles columnas vas a ordenarTienes encabezadosEn qué fila tienes los encabezadosEn qué fila empiezan los datosDesde cuál columna y hasta cuál columna vas a ordenar Te anexo un ejemplo que ordena los...

Cambia esta línea ActiveWorkbook. SaveAs GuardarComo Por esta ActiveWorkbook. SaveAs GuardarComo, xlOpenXMLWorkbook Si tienes problemas, también cambia esta línea: Extension = .Trim(Right(.Substitute(GuardarComo, ".", .Rept(" ", 500)), 500)) Por esta...

H o l a: Te anexo la macro actualizada. Pon la macro en un botón y la ejecutas desde el botón. Sub DarEnter() 'Por.Dante Amor On Error Resume Next Set rango = Application.InputBox("Selecciona el rango a comparar", _ Default:=Selection.Address,...

Con una macro sería así: Sub ira() 'Por.Dante Amor Range("AA" & Range("AA" & Rows.Count).End(xlUp).Row).Offset(0, 1).Select End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias