inserisci date con combobox

Question

Salve vorrei selezionare con una combobox la data da riportare in una selezione, mi spiego meglio... ho 5 fogli in cui copio ogni mese dei nuovi dati che però variano per quantità di righe da folgio a foglio. Vorrei posizionando una combo con i 12 mesi in un folgio "indice" far si che alla selezione del mese questo venga scritto nella colonna data nelle celle vuote. I fogli hanno tutti la stessa struttura e la colonna data è affiancata da due colonne una delle quali è sempre compilata.

Si può fare qualcosa?

Grazie

intestazione	importi	piazze	data	infoagg
paolo	150	002	31/01/2015	001
giorgio	1200	005		001
enrico	25	012		005
luca	580	006		001
paolo	320	031		010

Answer 1

Ciao Pallitta,

Salve vorrei selezionare con una combobox la data da riportare in una selezione, mi spiego meglio... ho 5 fogli in cui copio ogni mese dei nuovi dati che però variano per quantità di righe da folgio a foglio. Vorrei posizionando una combo con i 12 mesi in un folgio "indice" far si che alla selezione del mese questo venga scritto nella colonna data nelle celle vuote. I fogli hanno tutti la stessa struttura e la colonna data è affiancata da due colonne una delle quali è sempre compilata.

Si può fare qualcosa?

Grazie

intestazione	importi	piazze	data	infoagg
paolo	150	002	31/01/2015	001
giorgio	1200	005		001
enrico	25	012		005
luca	580	006		001
paolo	320	031		010

La tua domanda non è troppo chiara. Tuttavia, utilizzando i parametri enunciati da te, ho creato un file di esempio Pallitta#1_20150325.xlsm che ho caricato a: http://1drv.ms/1CadJah 

===

Regards,

Norman

Answer 2

Ciao Pallitta,

            sStr = "1/" & Me.ComboBox1.Value & "/2015"

Più flessibile sarebbe la seguente modifica:

              sStr = "1/" & Me.ComboBox1.Value & "/" & Year(Date)

===

Regards,

Norman

Answer 3

Ciao Pallitta,

Perfetto una figata!!!! non so come mettere un campo blank per posizionarlo dopo il salvataggio ma va BENISSIMO. Grazie

Se ho capito quest'ultima esigenza, prova a sostituire il codice nel modulo di codice del foglio su cui si trova la ComboBox con la seguente versione:

'=========>>

Option Explicit

'--------->>

Private Sub ComboBox1_Change()

    Dim WB As Workbook

    Dim SH As Worksheet, destSH As Worksheet

    Dim Rng As Range, destRng As Range, RngDate As Range

    Dim arrSheets As Variant

    Dim sStr As String

    Dim i As Long, j As Long

    Dim dDate As Date

    Const mySheets As String = "Foglio1, Foglio2"                     '<<===== Modifica

    Set WB = ThisWorkbook

    arrSheets = Split(mySheets, ",")

    For i = LBound(arrSheets) To UBound(arrSheets)

        Set RngDate = Nothing

        Set destSH = WB.Sheets(Trim(arrSheets(i)))

      Set Rng = destSH.Range("A1").CurrentRegion

Set destRng = Rng.Columns("D")

        On Error Resume Next

        Set RngDate = destRng.SpecialCells(xlCellTypeBlanks)

        On Error GoTo 0

        If Not RngDate Is Nothing Then

            sStr = "1/" & Me.ComboBox1.Value & "/2015"

            dDate = DateValue(sStr)

            dDate = DateAdd("m", 1, dDate) - 1

            RngDate.Value = dDate

        End If

  With Rng

j = .Rows.Count

.Rows(j).Copy

.Cells(j + 1, 1).PasteSpecial xlPasteFormats

End With

    Next i

End Sub

'<<=========

===

Regards,

Norman

Answer 4

Perfetto una figata!!!! non so come mettere un campo blank per posizionarlo dopo il salvataggio ma va BENISSIMO. Grazie