excel

[ruby18]

ciao a tutti,
avrei bisogno di un aiuto....
ho un file di excel contenente un foglio chiamato fattura dove ho la fattura e poi ho 12 fogli contenenti le scadenze dei clienti per ogni mese, vorrei creare un pulsante oppure un collegamento che selezionando una cella oppure selezionando il cliente mi riempa i campi della fattura

[Anthony47]

Ciao ruby, benvenuto nel forum.

Penso si possa fare, dovresti solo dare qualche informazione in piu' sulla strutura dei dati dei 12 fogli e del foglio fattura; meglio se alleghi un file di esempio.
Per come fare guarda qui: viewtopic.php?f=26&t=80395
Per allegare il link dovrai prima avere il contatore dei messaggi a 3, per questo basta che ne scriva ancra un paio anche vuoti.

Ciao

[ruby18]

......

[ruby18]

ora allego il file

[ruby18]

ECCO IL FILE
http://www.filedropper.com/scclientifatture_4

[Flash30005]

Benvenuto anche da parte mia nel Forum

Ho scaricato il file
ma credo manchino alcuni dati cliente (tipo P. Iva, indirizzo etc)
Per compilare la fattura occorrerebbe un'anagrafica Cliente

Inoltre la fattura prevede una descrizione Q.tà etc etc
che nel riepilogo mese non esistono

Quindi?

[ruby18]

si dovrei modificare il foglio inserendo i campi mancanti oppure li inserirei manualmente, ma poi come posso fare per aggiornare la fattura con i dati selezionati da un foglio mese????? cosa mi consigliate????

[Flash30005]

Dovresti mettere in ogni VBA del foglio (ogni mese) il seguente codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
CheckArea = "A9:A" & UR
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 4 Then Exit Sub
    Application.EnableEvents = False
    riga = Target.Row
    Worksheets("Fattura").Range("F9").ClearContents
    Worksheets("Fattura").Range("G17").ClearContents
    Worksheets("Fattura").Range("C14:D21").ClearContents
    Worksheets("Fattura").Range("H24").ClearContents
    Worksheets("Fattura").Range("C24").ClearContents

    Worksheets("Fattura").Range("F9").Value = Target
    Worksheets("Fattura").Range("G17").Value = Cells(riga, 7).Value
    Worksheets("Fattura").Range("C14").Value = "DDT. N° " & Cells(riga, 4)
    Worksheets("Fattura").Range("H24").Value = Cells(riga, 11).Value
     Worksheets("Fattura").Range("C24").Value = Cells(riga, 13).Value
End If
Application.EnableEvents = True
End Sub

Fai sapere
Ciao

[ruby18]

grazie mille della tua risposta....
una domanda ma il codice lo inserisco semplicemente nel vba di excel
oppure sottoforma di controllo?

[ruby18]

inserito e funzionante, GRAZIE MILLE PER IL GRANDE AIUTOOOOOOOOOO!!!!!!!!!!!!!!!!!!!!!!!!!

[Flash30005]

Puoi in parte semplificare la macro
inserendo questa parte di macro in un modulo

Codice: Seleziona tutto

Public Foglio, Cliente As String, riga As Integer

Sub CompilaFatt()
    Worksheets("Fattura").Range("F9").ClearContents
    Worksheets("Fattura").Range("G17").ClearContents
    Worksheets("Fattura").Range("C14:D21").ClearContents
    Worksheets("Fattura").Range("H24").ClearContents
    Worksheets("Fattura").Range("C24").ClearContents

    Worksheets("Fattura").Range("F9").Value = Cliente
    Worksheets("Fattura").Range("G17").Value = Worksheets(Foglio).Cells(riga, 7).Value
    Worksheets("Fattura").Range("C14").Value = "DDT. N° " & Worksheets(Foglio).Cells(riga, 4)
    Worksheets("Fattura").Range("H24").Value = Worksheets(Foglio).Cells(riga, 11).Value
     Worksheets("Fattura").Range("C24").Value = Worksheets(Foglio).Cells(riga, 13).Value
End Sub


Mentre in ogni Foglio Mese (VBA) inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
CheckArea = "A9:A" & UR
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 4 Then Exit Sub
    Application.EnableEvents = False
    Foglio = Name
    riga = Target.Row
    Cliente = Range("A" & riga).Value
Call CompilaFatt
End If
Application.EnableEvents = True
End Sub


Così se dovessi cambiare o aggiungere campi in fattura modificherai solo la macro del modulo

[ruby18]

ho modificato come mi hai detto e funziona perfettamente!!!!!!! grazieeeeeeeeeeeeeeeeeeeeeee.....................