snaki Fco

El echo que aparezca -1, se debe a que te esta devolviendo los resultados en lista, es decir que te saldrá siempre eso cuando hagas un select * o select campox ya que te devuelve no un numero fijo sino que vb asume que es una lista de resultados.

Intento lo siguiente Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$2" Then Select Case ActiveCell Case Is = "Dato1" Call form1.Show Case Is = "Dato2" Call form2.Show Case Is = "Dato3" Call form3.Show End Select...

Intenta poniendo lo siguiente: DtPicker.value = date ' El date es la fecha de tu ordenador por tanto asegurate que este este bien configurado

Lo puedes hacer de la siguiente forma: Para usa Hoja en especifica: Sheets("Hoja2").Visible = False para la hoja que se encuentra seleccionada ActiveWindow.SelectedSheets.Visible = True Para ocultar una hoja y que cuando le des mostrar hoja esta no...

Según lo que veo deberías hacer lo siguiente en la linea ActiveCell.Value = Me.Controls("checkbox" & I).Caption & vbCrLf ponlo de la siguiente forma: ActiveCell.Value = ActiveCell & Me.Controls("checkbox" & I).Caption & vbCrLf ahi me cuentas como te...

Para cuando lo gustes

No olvides finalizar Espero que halla sido de tu utilidas, para cuando gustes podrás ayudarte Nos Vemos

Te aconsejo que inicies la grabadora y desde inicio abras el archivo, detén la grabadora y te quedara guardada el el vb, el dirección del archivo

Bueno te digo que ya tengo lo que me solicictas pero a modo de consulta la primera fila, en donde están los valores 0, ¿todas tiene valores? O quedan algunas que no tiene valores te lo pregunto por que el que te envío lo realiza hasta encontrar vacía...