Dante Amor

H o l a: La estructura completa del Case es así: Sub BorrarDatos() resultado = MsgBox("Desea realizar otro registro con estos mismos datos?", vbYesNo) Select Case resultado Case vbYes Exit Sub Case vbNo Range("C7:C14").ClearContents End Select End...

H o l a: Con el siguiente código tienes que crear un commandbutton dentro de tu formulario. Funciona de la siguiente manera, capturas un texto en el textbox y presionas el botón, la información del textbox se agrega al listbox en la columna 1. Para...

H o l a: Revisa la macro, estoy poniendo la variable salir al principio de la macro: Dim salir Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor If salir = False Then If (MsgBox("¿DESEAS GUARDAR?", vbQuestion + vbYesNo, "EL...

H o l a: ¿Y en cuál columna dice "PPV"? ¿Y de cuál columna a cuál columna hay que ordenar? ¿Tienes encabezados y en cuál fila? Y por cuál columna o cuáles columnas hay que ordenar, ¿descendente o ascendente? ¿Podrías contestar en ese orden?

H o l a: Puedes poner una imagen de cómo están los datos en el archivo texto. Los datos están separados por comas, ¿o por tabuladores o por algún carácter especial? Y pon otra imagen de cómo quieres que queden ene excel.

Para llevar un orden en los procesos, las altas de nuevas constantes deberás hacerlas en un nuevo formulario, escribes en un textbox la nueva constante y con un botón agregar a la hoja constantes. También puede ser en el mismo formulario. Te lo...

Me habías comentado que es un archivo muy grande, entonces después de ejecutas la macro guardas el libro con ActiveWorkbook. Save Te sugiero que quites esa línea y me digas si el tiempo todavía es demasiado. Si es demasiado, entonces habría que...

Puede ser así: Sub CopiarNumero() 'Act.Por.Dante Amor Set h1 = Sheets("FORMULARIO") Set h2 = Sheets("CLIENTE") Set h3 = Sheets("VISITAS") ' h2.[E7] = h1.[E7] h3.[C7] = h1.[E7] h2.[E5] = h1.[E6] h3.[C6] = h1.[E6] End Sub o así: Sub CopiarNumero2()...

En estas celdas tienes que tener valores numéricos Rn = Range("C3") c = Range("C4") n = Range("B7") Si dices que tienes c="c", tienes que cambiar c= y poner un número. Además en estas variables también debes tener números: P L E Pi No veo en qué...

Pon lo siguiente en un botón Sub Actualizar() 'Por.Dante Amor ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks ActiveWorkbook.RefreshAll End Sub s a l u d o s