luchin37

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

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")

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

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

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,...

Private Sub Worksheet_Change(ByVal Target As Range) If Range("$A$1") = "g" Then Sheets(2).Visible = True Sheets(2).Activate Sheets(2).Range("A1").Select End If End Sub

Supongamos que la lista de códigos esta en la columna A luego en la celda b1 la utilizaremos como celda de entrada, en la celda c1 pones esto: CONTAR.SI(A:A;B1) De esta forma te indicara cuantas veces aparece en la lista el código que editaste en la...

Creo que el problema puede estar en el proveedor ... apuntas a OLEDB. 4.0 Prueba con una versión superior... también revisa las referencias del proyecto debes tener agregado microsoft ado 6.0