Abraham Valencia

Pues si hablamos de un TextBox en tu hoja, pues, en el modulo de la hoja algo así: Private Sub TextBox1_LostFocus() ActiveSheet.Name = TextBox1 End Sub Abraham

OJO, en un modulo "normal" así: Sub XXX() Dim strnombre$ strnombre$ = Worksheets("Hoja2").Range("A1").Value Worksheets("Hoja3").Name = strnombre$ End Sub Abraham

Prueba así: Sub NEW_COSTUMER() Dim x As Long Sheets("000000").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Format(Sheets((Sheets.Count) - 1).Name + 1, "000000") ActiveSheet.[G5] = ActiveSheet.Name ActiveSheet.[G5].NumberFormat =...

Dim lngvalorinicial& Private Sub Worksheet_Change(ByVal Target As Range) Dim lngnuevovalor& lngnuevovalor& = Target MsgBox "El nuevo valor es: " & lngnuevovalor& MsgBox "El valor anterior era: " & lngvalorinicial& End Sub Private Sub...

¿Por qué no envías la macro usada para entendete mejor? Abraham

Pues es cuestión simplemente de usar SEtFocus: TextBox1. SetFocus Y el "foco" queda en ese TextBox Abraham

Pues, create una macro así: Sub XXX () Userform1.Show End Sub Luego, coloca un botón de la barra de formularios en tu hoja, dale click derecho, elige "Asignar macro", y eleige el nombnre de la macro, en este caso "XXX". OJO, no olvides que donde yo...

No lo probé, pero viendo me parece que si funcionara. Analízalo para que te des idea que hacen esos códigos: Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Celda As Range Dim Hoja As Worksheet For Each Hoja In Worksheets For...

Así: Sub HojasHojas() Dim Hoja As Worksheet For Each Hoja In Worksheets Hoja.Name = Hoja.Range("A1").Value Next hoja End Sub OJO, si en A1 de cada hoja hay carácter invalido para nombre de hoja, pues, ese código dará error, así como si se repitiera...

¿Te ocurre eso en la misma PC y la misma impresora? De ser así, ¿No habrá laguna macro por ahí que cambia las configuraicones? Si ocurre en diferentes PC's y/o impresoras, pues te comentare que llas configuraciones de impreiosn (margenes, etc), pues,...