¿Se podría lograr, al abrir una hoja, una lista desplegable se iniciara, en una posición?

Me vendria, muy bien, lograr que al abrir la hoja, la lista desplegabble que esta en, "D10", LISTA DESPLEGABLE: =$D$70:$D$89, se posicionase en la celda "D70".
Advirtiendo, que en la hoja, tengo esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) <> "D10" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set b = Range("D70:D" & Range("D" & Rows.Count).End(xlUp).Row).Find(Target, lookat:=xlWhole)
If Not b Is Nothing Then
[G43] = Cells(b.Row, "F")
Cells(b.Row, "F") = [G46]
End If
End Sub

1 Respuesta

Respuesta
1

Prueba dentro de Thisworbook

El siguiente código y me cuentas:

Private Sub Workbook_Open()
Sheets(1).Range("D10").Value = Sheets(1).Range("D70").Value
End Sub

En este link te deje un ejemplo

http://1drv.ms/1Ry9mej 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas