PARA DAM escribir una fecha en un com
Necesitaría es escijer una fecha en un combo que salga de otro campo de otra hoja
1 respuesta
Respuesta de Dante Amor
1
Con la siguiente macro se cargan las fechas ordenadas y únicas
Private Sub ComboBox1_DropButtonClick()
'Por.Dante Amor
If cambiar Then
cambiar = False
Exit Sub
End If
Application.ScreenUpdating = False
Set h1 = Sheets("PEDIDOS A RECLAMAR")
Set h2 = Sheets("PLANTILLA-FECHA")
Set h3 = Sheets("filtro")
'
h3.Cells.ClearContents
ComboBox1.Clear
h1.Columns("N:N").Copy
h3.[A1].PasteSpecial Paste:=xlValues
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
With h3.Sort
.SortFields.Clear
.SortFields.Add Key:=h3.Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortTextAsNumbers
.SetRange h3.Range("A1:A" & u3)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
h3.Range("A1:A" & u3).RemoveDuplicates Columns:=1, Header:=xlYes
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u3
h2.ComboBox1.AddItem h3.Cells(i, "A")
Next
Application.ScreenUpdating = True
cambiar = False
End Sub
