luchin37

Al recorrer cada hoja, consulta el indice de la misma h. Index te dará si es la hoja 1 o la 2 0 la 3 etc Luego para tomar el valor de A1 de cada una seria sheets(h. Index). Range("a1")

Utiliza un bucle Do While Not recordset.EOF Combo. AddItem recordset("nombredetucampo") Recordset. MoveNext DoEvents Loop Así recorrerás todo el recordset si es que tiene registros obviamente y los ira agregando al combo

Sub ubicación() MsgBox "Esta es la celda " & Replace(Selection.Address, "$", "") End Sub

Utiliza las api de windows Te dejo el link GetNombreHost http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/modulo-clase-red-internet.htm

en a1 pones esto =SI(B1<>"";1;"")

Tu problema esta aquí Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select La primera orden te lleva al final de la hoja luego le pides que seleccione una fila mas abajo de la ubicación actual ( que es la última fila de la hoja), por lo tanto...

Pásale el valor a una variable tipo date y aplica formato o bien directamente sobre e objeto datapicker... Format(variable,"dd-mm-yyyy") O bien format(objeto,"dd-mm-yyyy")

Ya revisaste si tienes la tecla "despl" activa ( en el teclado), si es asi desactívala. También revisa si tienes la opción inmovilizar panales activa en tu libro excel... menu vista/inmovilizar

El cod en vba no se puede compliar

Hoja2.Cells(por, 19).Value = (CDbl(TextBox7.Text) )*-1