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

En el evento click del botón agrega label1=val(label1) +1

Ese error ocurre generalmente cuando intentas asignar un valor de distinto tipo a una variable Es decir por ejemplo para una variable declarada como integer, solo debe recibir valores enteros, si intentas asignarle un string ocurrirá ese error. En tu...

ok veamos... Inserta un modulo en tu proyecto y en el pones este macro. Option Explicit Sub copiar_secuencia() Dim r As Range Dim c As integer Dim i As integer Dim fila As Long For i = 2 To 4 c = i Set r = Range(Range(Cells(1, c).Address, Cells(150,...

Suponiendo que no tienes encabezados de columna entonces Declaras la variable fila y luego utilizas la siguiente función nativa de excel fila=Application.WorksheetFunction.CountA (Range("A:A")) + 1 Esto cuenta los elementos de la columna A y le...

¿Duda?... ¿Te resulta mas rapido escribir el nombre de la hoja en una celda que solo pinchar con el mouse la hoja y ya?