¡¡¡ Ayuda !!!

hola, Miguel !

He creado un formulario para la introduccion de registros en una... hoja... denominada "Estadísticas".
Este formulario esta formado por varios ComboBox y 4 TextBox.
Mi pregunta es la siguiente: Que modificacion debo incluir en la macro que os pongo a continuacion
para que cuando introduzca un dato determinado en el TextBox num. 2 (Ej.: "XXXXXXXX", que siempre sera el mismo)
todos los datos que, en ese momento, haya introducido en el formulario se copien en otra hoja
Es decir, en una hoja distinta de la denominada "Estadisticas"?

la fraccion de codigo que efectua el "pase" a tu hoja "estadisticas" es el bloque With...End With en el evento '_click' del commandbutton1
= With Worksheets("estadistica")
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
=
es la seccion de codigo que deberas "reproducir" en algun otro evento segun necesites...
(p.e.) al salir del textbox num 2 (otro commandbutton, o lo que sea) cambiando la primer linea:
de: -> With Worksheets("estadistica")
a: -> With Worksheets(textbox2)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
Dim n As Integer
Private Sub CommandButton1_Click()
Dim Salir As Boolean
For n = 1 To 2: If Me.Controls("textbox" & n) = "" Then Salir = True: GoTo Verifica
Next
For n = 1 To 9: If Me.Controls("combobox" & n) = "" Then Salir = True: GoTo Verifica
Next
If IsNull(DTPicker1) Then Salir = True
Verifica:
If Salir Then MsgBox "FALTAN CASILLAS POR LLENAR !!!": Exit Sub
With Worksheets("estadistica")
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
End Sub

Private Sub CommandButton2_Click()
DTPicker1 = Null
For n = 1 To 5: Me.Controls("textbox" & n) = "": Next
For n = 1 To 15: Me.Controls("combobox" & n).ListIndex = -1: Next
' Worksheets("listas").Visible = True
' Worksheets("listas").Select
' Worksheets("listas").Visible = False
Worksheets("formulario").Select
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, _
ByVal CallbackField As String, CallbackDate As Date)
Calendar1.Today 'actualiza o muestra la fecha actual
End Sub

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("listas").Visible = True
Sheets("ESTADISTICA").Visible = False
Sheets("TABLA").Visible = True
Sheets("listas").Select
End If
Unload Me
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Sheets("ESTADISTICA").Visible = True
Sheets("LISTAS").Visible = False
Sheets("TABLA").Visible = False
Sheets("ESTADISTICA").Select
End If
Unload Me
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
Sheets("TABLA").Visible = True
Sheets("LISTAS").Visible = False
Sheets("ESTADISTICA").Visible = False
Sheets("TABLA").Select
End If
Unload Me
End Sub

Sub Nombre_a_listas()
Dim nCol As Byte, Listados As Range, n As Byte, TitulosA, TitulosB
TitulosA = Array("Uni", "Doc", "Nac", "Mot", "Efe", "Jui")
TitulosB = Array("Unidad", "Documentos", "Nacionalidad", "Motivo", "Efectos", "JUI")
On Error Resume Next
For n = LBound(TitulosA) To UBound(TitulosA): Names(TitulosA(n)).Delete: Next
On Error GoTo 0
Range("a1:f1") = TitulosA
Set Listados = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
For nCol = 2 To 6
Set Listados = Union(Listados, Range(Cells(1, nCol), Cells(1, nCol).End(xlDown)))
Next
Listados.Select
Selection.CreateNames True
Range("a1:f1") = TitulosB
Range("a1").Select
Set Listados = Nothing
End Sub

On 4 dic, 07:05, "Héctor Miguel"
wrote:

hola, Miguel !

> He creado un formulario para la introduccion de registros en una... hoja... denominada "Estadísticas".
> Este formulario esta formado por varios ComboBox y 4 TextBox.
> Mi pregunta es la siguiente: Que modificacion debo incluir en la macro que os pongo a continuacion
> para que cuando introduzca un dato determinado en el TextBox num. 2 (Ej.: "XXXXXXXX", que siempre sera el mismo)
> todos los datos que, en ese momento, haya introducido en el formulario se copien en otra hoja
> Es decir, en una hoja distinta de la denominada "Estadisticas"?

la fraccion de codigo que efectua el "pase" a tu hoja "estadisticas" es el bloque With...End With en el evento '_click' del commandbutton1
=> With Worksheets("estadistica")
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
=>
es la seccion de codigo que deberas "reproducir" en algun otro evento segun necesites...
(p.e.) al salir del textbox num 2 (otro commandbutton, o lo que sea) cambiando la primer linea:
de: -> With Worksheets("estadistica")
a: -> With Worksheets(textbox2)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
Dim n As Integer
Private Sub CommandButton1_Click()
Dim Salir As Boolean
For n = 1 To 2: If Me.Controls("textbox" & n) = "" Then Salir = True: GoTo Verifica
Next
For n = 1 To 9: If Me.Controls("combobox" & n) = "" Then Salir = True: GoTo Verifica
Next
If IsNull(DTPicker1) Then Salir = True
Verifica:
If Salir Then MsgBox "FALTAN CASILLAS POR LLENAR !!!": Exit Sub
With Worksheets("estadistica")
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
End Sub

Private Sub CommandButton2_Click()
DTPicker1 = Null
For n = 1 To 5: Me.Controls("textbox" & n) = "": Next
For n = 1 To 15: Me.Controls("combobox" & n).ListIndex = -1: Next
' Worksheets("listas").Visible = True
' Worksheets("listas").Select
' Worksheets("listas").Visible = False
Worksheets("formulario").Select
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, _
ByVal CallbackField As String, CallbackDate As Date)
Calendar1.Today 'actualiza o muestra la fecha actual
End Sub

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("listas").Visible = True
Sheets("ESTADISTICA").Visible = False
Sheets("TABLA").Visible = True
Sheets("listas").Select
End If
Unload Me
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Sheets("ESTADISTICA").Visible = True
Sheets("LISTAS").Visible = False
Sheets("TABLA").Visible = False
Sheets("ESTADISTICA").Select
End If
Unload Me
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
Sheets("TABLA").Visible = True
Sheets("LISTAS").Visible = False
Sheets("ESTADISTICA").Visible = False
Sheets("TABLA").Select
End If
Unload Me
End Sub

Sub Nombre_a_listas()
Dim nCol As Byte, Listados As Range, n As Byte, TitulosA, TitulosB
TitulosA = Array("Uni", "Doc", "Nac", "Mot", "Efe", "Jui")
TitulosB = Array("Unidad", "Documentos", "Nacionalidad", "Motivo", "Efectos", "JUI")
On Error Resume Next
For n = LBound(TitulosA) To UBound(TitulosA): Names(TitulosA(n)).Delete: Next
On Error GoTo 0
Range("a1:f1") = TitulosA
Set Listados = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
For nCol = 2 To 6
Set Listados = Union(Listados, Range(Cells(1, nCol), Cells(1, nCol).End(xlDown)))
Next
Listados.Select
Selection.CreateNames True
Range("a1:f1") = TitulosB
Range("a1").Select
Set Listados = Nothing
End Sub

Disculpa, pero no lo entiendo (cosa que no es difícil, porque no estoy
muy ducho en la materia). La cuestión es bien simple, al menos en
teoría (lo que ocurre es que yo no sé hacerlo). Lo que pretendo es
rellenar el formulario como habitualmente lo hago; pero, es este caso,
cuando en el TextBox núm. 2 introduzca el siguiente dato: "XXXXXXX",
que siempre será el mismo, todos los datos que ponga en el formulario,
a la hora de registrarlos (accionando el CommandButton1, en el
formulario denominado "Registro"), se registren en una hoja distinta a
"Estadísticas", en otra cualquiera.
Por favor, si te es posible modifícame la macro para conseguir esto.
Muchísimas gracias por tu pronta contestación.
Un saludo,
Miguel A.

hola, Miguel !

Lo que pretendo es rellenar el formulario como habitualmente lo hago; pero, es este caso
cuando en el TextBox num. 2 introduzca el siguiente dato: "XXXXXXX", que siempre sera el mismo
todos los datos que ponga en el formulario, a la hora de registrarlos
(accionando el CommandButton1, en el formulario denominado "Registro")
se registren en una hoja distinta a "Estadisticas", en otra cualquiera...

no estoy muy seguro de haber captado cabalmente la intencion de tu consulta
sobre todo por que no parece conocerse cuales datos YA son "pasables/registrables/..." ???
(pero parece que lo que necesitas o solicitas es +/-)...
-> copia al final del procedimiento '_click' del commandbutton1 un duplicado de las instrucciones con otra hoja de base (p.e.)

Private Sub CommandButton1_Click()
' OJO aqui viene TODO el codigo que ya utilizas para este evento, por lo que...
' despues de TODO el codigo que ya utilizas para este evento, agrega lo siguiente:
If TextBox2 <> "XXXXXXX" Then Exit Sub ' si NO es el dato que siempre sera el mismo, se termina el procedimiento, si no...
With Worksheets("pon aqui el nombre de la otra hoja cualquiera") ' <= OJO: MODIFICA AQUI
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

On 5 dic, 04:49, "Héctor Miguel"
wrote:

hola, Miguel !

> Lo que pretendo es rellenar el formulario como habitualmente lo hago; pero, es este caso
> cuando en el TextBox num. 2 introduzca el siguiente dato: "XXXXXXX", que siempre sera el mismo
> todos los datos que ponga en el formulario, a la hora de registrarlos
> (accionando el CommandButton1, en el formulario denominado "Registro")
> se registren en una hoja distinta a "Estadisticas", en otra cualquiera...

no estoy muy seguro de haber captado cabalmente la intencion de tu consulta
sobre todo por que no parece conocerse cuales datos YA son "pasables/registrables/..." ???
(pero parece que lo que necesitas o solicitas es +/-)...
-> copia al final del procedimiento '_click' del commandbutton1 un duplicado de las instrucciones con otra hoja de base (p.e.)

Private Sub CommandButton1_Click()
' OJO aqui viene TODO el codigo que ya utilizas para este evento, por lo que...
' despues de TODO el codigo que ya utilizas para este evento, agrega lo siguiente:
If TextBox2 <> "XXXXXXX" Then Exit Sub ' si NO es el dato que siempre sera el mismo, se termina el procedimiento, si no...
With Worksheets("pon aqui el nombre de la otra hoja cualquiera") ' <= OJO: MODIFICA AQUI
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hola Héctor Miguel,

Como ya te comenté, tengo un formulario que utilizo para introducir
datos que se copian en una hoja, denominada "Estadisticas". Este
formulario, consta de varios campos, uno de ellos (el TextBox núm. 2)
lo utilizo para introducir el nombre y apellidos de personas. Lo que
pretendo es que cuando en ese campo introduzca la palabra
"DESCONOCIDO", en vez de que todos los datos pasen a la hoja
"Estadisticas", lo hagan a otra hoja, denominada "Estadisticas_1"; es
decir, si en ese campo pongo cualquier nombre y apellidos quiero que
se copien en la hoja "Estadisticas"; pero, si pondo "DESCONOCIDO",
todos los campos se copien en "Estadisticas_1".
Con la modificación que me has propuesto, vamos avanzando en el buen
camino, pero no del todo; ya que lo que hace este código es que cuando
en ese campo pongo la palabra "DESCONOCIDO" los datos se copian en las
dos hojas a la vez, en "Estadisticas" y en "Estadisticas_1".
El código, según tu propuesta, ha quedado de la siguiente manera:

Private Sub CommandButton1_Click() ' Código original
Dim Salir As Boolean
For n = 1 To 2: If Me.Controls("textbox" & n) = "" Then Salir True: GoTo Verifica
Next
For n = 1 To 9: If Me.Controls("combobox" & n) = "" Then Salir True: GoTo Verifica
Next
If IsNull(DTPicker1) Then Salir = True
Verifica:
If Salir Then MsgBox "FALTAN CASILLAS POR LLENAR !!!": Exit Sub
With Worksheets("estadistica")
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n):
Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With

If TextBox2 <> "DESCONOCIDO" Then Exit Sub ' (añadido por tí) si NO es
el dato que siempre sera el mismo, se termina el procedimiento, si
no...
With Worksheets("Estadistica_1") ' <= OJO: MODIFICA AQUI
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n):
Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
End Sub


No sé, quizás habría que poner alguna condición, como por ejemplo: si
en el TextBox2 se introduce algo distinto de la palabra "DESCONOCIDO"
copiar en "Estadisticas" y si es exactamente la palabra "DESCONOCIDO"
copiar en hoja "Estadisticas_1".
Esto es fácil decirlo, pero otra cosa es llevarlo a cabo mediante
códigos.
De nuevo, reiterarte mi agradecimiento por tus respuestas e interés.
Muchas gracias,
Miguel A.

hola, Miguel !

... el TextBox num. 2 lo utilizo para introducir el nombre y apellidos de personas.
Lo que pretendo es que cuando en ese campo introduzca la palabra "DESCONOCIDO"
en vez de que todos los datos pasen a la hoja "Estadisticas", lo hagan a otra hoja, denominada "Estadisticas_1" (...)

(disculpa)... no tenia claro si necesitabas el registro en la otra hoja "ademas" del registro normal... o "en lugar de..." :))

prueba la siguiente modificacion en el codigo del evento '_click' del commandbutton1...
y si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Private Sub CommandButton1_Click()
Dim Salir As Boolean, EstaHoja As String
For n = 1 To 2: If Me.Controls("textbox" & n) = "" Then Salir = True: GoTo Verifica
Next
For n = 1 To 9: If Me.Controls("combobox" & n) = "" Then Salir = True: GoTo Verifica
Next
If IsNull(DTPicker1) Then Salir = True
Verifica:
If Salir Then MsgBox "FALTAN CASILLAS POR LLENAR !!!": Exit Sub
EstaHoja = Iif(TextBox2 = "DESCONOCIDO", "estadisticas_1", "estadisticas")
With Worksheets(EstaHoja)
With .Range("a65536").End(xlUp).Offset(1)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1.Value
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3.Value
.Offset(, 19) = TextBox4.Value
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End With
End Sub