Predisposizione scheda excel

alfrimpa, 21/06/2018 12.12:

---

Ciao Maelstrom85

Effettivamente molto chiaro non sei stato.

Riesci a fare un esempio (costruendolo manualmente) di come la scheda "Preventivi" debba essere creata affinché non dia problemi al tuo gestionale?

---

alfrimpa, 21/06/2018 15.45:

---

Ciao maelstroom

Premetto che non sono sicuro di aver capito bene.

Ti allego il tuo file dove ho aggiunto un nuovo foglio "Gestionale" identico a "preventivi" ma senza formule.

Quando hai terminato di compilare il foglio "Preventivi" clicca sul pulsante "Crea scheda per gestionale" e il foglio "gestionale" verrà compilato senza la necessità di alcuna formula.

Questo il codice abbinato al pulsante

vb

Sub PerGestionale()
Dim i As Integer
Dim ur As Integer
Dim rng As Range
Dim cel As Range
Set rng = Sheets("Preventivi").Range("A5:a20")
Sheets("Gestionale").Range("a5:K20").ClearContents
For Each cel In rng
ur = Sheets("Gestionale").Range("a3").End(xlDown).Row
    If cel.Value <> "" Then
        For i = 1 To 11
            Sheets("Gestionale").Cells(ur + 1, i).Value = cel.Offset(0, i - 1).Value
        Next i
    End If
Next cel
Sheets("Gestionale").Range("F21").Value = Sheets("Preventivi").Range("F21").Value
Sheets("Gestionale").Range("B23").Value = Sheets("Preventivi").Range("B23").Value
Sheets("Gestionale").Range("D23").Value = Sheets("Preventivi").Range("D23").Value
Sheets("Gestionale").Range("K23").Value = Sheets("Preventivi").Range("K23").Value
End Sub

Fai sapere era ciò quello che volevi.

---

by sal, 21/06/2018 16.15:

---

Ciao Alfredo credo che vorrebbe i dati come il foglio Articoli perche è quello che viene passato al suo gestionale, non un nuovo foglio preventivo.

Ciao By Sal

---

alfrimpa, 21/06/2018 17.29:

---

Allora dal tuo foglio Articoli cancella tutte le formule (tranne l'intestazione) e usa questa macro

vb

Sub PerGestionale()
Dim i As Integer
Dim ur As Integer
Dim tbl As Range
Dim rng As Range
Dim cel As Range
Set rng = Sheets("Preventivi").Range("A5:a20")
Set tbl = Sheets("Database").Range("E3:j1000")
Sheets("Articoli").Range("a2:D1000").ClearContents
For Each cel In rng
ur = Sheets("Articoli").Cells(Rows.Count, 1).End(xlUp).Row
    If cel.Value <> "" Then
        Sheets("Articoli").Cells(ur + 1, 1).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 6)
        Sheets("Articoli").Cells(ur + 1, 2).Value = cel.Value
        Sheets("Articoli").Cells(ur + 1, 3).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 4)
        Sheets("Articoli").Cells(ur + 1, 4).Value = cel.Offset(0, 3).Value
    End If
Next cel
End Sub

Fai sapere.

---

alfrimpa, 21/06/2018 18.09:

---

Non so se ho capito bene; prova con questa

vb

Sub PerGestionale()
Dim i As Integer
Dim ur As Integer
Dim tbl As Range
Dim rng As Range
Dim cel As Range
Set rng = Sheets("Preventivi").Range("A5:a20")
Set tbl = Sheets("Database").Range("E3:j1000")
Sheets("Articoli").Range("a2:D1000").ClearContents
For Each cel In rng
ur = Sheets("Articoli").Cells(Rows.Count, 1).End(xlUp).Row
    If cel.Value <> "" Then
        Sheets("Articoli").Cells(ur + 1, 1).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 6)
        Sheets("Articoli").Cells(ur + 1, 2).Value = cel.Value & " " & cel.Offset(0, 1) & " " & "mm" & " " & cel.Offset(0, 2) & " " & "mm" & " " & cel.Offset(0, 3)
        Sheets("Articoli").Cells(ur + 1, 3).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 4)
        Sheets("Articoli").Cells(ur + 1, 4).Value = cel.Offset(0, 3).Value
    End If
Next cel
End Sub

---

alfrimpa, 22/06/2018 14.49:

---

Ciao Maelstrom85

Ancora non so se ho capito bene; prova questa macro e fai sapere.

vb

Sub PerGestionale()
Dim i As Integer
Dim ur As Integer
Dim tot As String
Dim tbl As Range
Dim rng As Range
Dim cel As Range
Set rng = Sheets("Preventivi").Range("A5:a26")
Set tbl = Sheets("Database").Range("E3:j1000")
Sheets("Articoli").Range("a2:D1000").ClearContents
For Each cel In rng
ur = Sheets("Articoli").Cells(Rows.Count, 1).End(xlUp).Row
    If cel.Value <> "" Then
    If cel.Offset(0, 4).Value <> "" Then
        tot = cel.Offset(0, 4).Value & " Kg."
        Else
        tot = cel.Offset(0, 5).Value & " Mq"
        End If
        Sheets("Articoli").Cells(ur + 1, 1).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 6)
        Sheets("Articoli").Cells(ur + 1, 2).Value = cel.Value & " " & cel.Offset(0, 1) & " " & "mm" & " " & cel.Offset(0, 2) & " " & "mm" & " " & tot
        Sheets("Articoli").Cells(ur + 1, 3).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 4)
        Sheets("Articoli").Cells(ur + 1, 4).Value = cel.Offset(0, 3).Value
    End If
Next cel
End Sub

Nel caso vi fossero ancora discrepanze scrivi l'esatta descrizione che deve comparire in colonna B del foglio "Articoli".

---

alfrimpa, 26/06/2018 15.12:

---

Ciao maelstrom85

Questa macro dovrebbe funzionare ma solo per quelli articoli che hanno nel databaae come U.M mq

vb

Sub PerGestionale()
Dim i As Integer
Dim ur As Integer
Dim tbl As Range
Dim rng As Range
Dim cel As Range
Set rng = Sheets("Preventivi").Range("A5:a20")
Set tbl = Sheets("Database").Range("E3:j1000")
Sheets("Articoli").Range("a2:D1000").ClearContents
For Each cel In rng
ur = Sheets("Articoli").Cells(Rows.Count, 1).End(xlUp).Row
    If cel.Value <> "" Then
        Sheets("Articoli").Cells(ur + 1, 1).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 6)
        Sheets("Articoli").Cells(ur + 1, 2).Value = cel.Value & " " & cel.Offset(0, 1) & " " & "mm" & " " & cel.Offset(0, 2) & " " & "mm" & " " & cel.Offset(0, 3) & " pz"
        Sheets("Articoli").Cells(ur + 1, 3).Value = Application.WorksheetFunction.VLookup(cel.Value, tbl, 4)
        Sheets("Articoli").Cells(ur + 1, 4).Value = cel.Offset(0, 5).Value
    End If
Next cel
End Sub

Per gli altri dovresti vedere un po' tu e dire cosa c'è che non va e darmi istruzioni su come gestire invari casi dell’U.M.

---