Moderatori: Anthony47, Flash30005
il problema è che quando genero su foglio 3 mi si moltiplicano i campi ...
Sub COMPILA()
Sheets("Foglio1").Select ' <<=== Aggiunta
UserForm1.Show vbModal
End Sub
Private Sub btnGo_Click()
'ricopia le colonne selezionate nel foglio2
Dim rng As Range, j As Long, i As Integer
Dim matricole As String
Dim UR As Long
Dim ditta As String
UR = Sheets("Foglio3").Range("A" & Rows.Count).End(xlUp).Row ' <<===== Aggiunta
Sheets("Foglio3").Range("A12:E" & UR).Clear ' <<===== Aggiunta
Application.ScreenUpdating = False
j = 1
...
...
...
End Sub
Private Sub ComboBox7_Change()
Dim c As Range
Set c = Range("1:1").Find(ComboBox7, lookat:=xlWhole)
TextBox7 = read_rows(c)
TextBox7.Tag = c.Column
End Sub
Private Sub btnGo_Click()
'ricopia le colonne selezionate nel foglio2
Dim rng As Range, j As Long, i As Integer
Dim matricole As String
Dim UR As Long
Dim ditta As String
UR = Sheets("Foglio3").Range("A" & Rows.Count).End(xlUp).Row ' <<===== Aggiunta
Sheets("Foglio3").Range("A12:E" & UR).Clear ' <<===== Aggiunta
Application.ScreenUpdating = False
j = 1
For i = 1 To 7 ' ' <<===== Modificata era "4"
If i <> 5 And i <> 6 Then ' <<===== Aggiunta
If Controls("TextBox" & i).Tag = "" Then
MsgBox "Non hai effettuato una selezione necessaria", vbCritical, "Attenzione"
'Controls("TextBox" & i).SetFocus
Exit Sub
End If
Set rng = Cells(1, Val(Controls("TextBox" & i).Tag)).CurrentRegion
rng.Copy
Sheets(2).Cells(j, 1).PasteSpecial
j = j + rng.Rows.Count + 1
End If ' <<===== Aggiunta
Next
Application.CutCopyMode = False
UR = Worksheets("Sheets2").Range("A" & Rows.Count).End(xlUp).Row
ditta = UserForm1.ComboBox5.Value
matricole = UserForm1.ComboBox6.Value
Unload Me
Worksheets("Sheets2").Range("a1:e" & UR + 1).Copy Destination:=Worksheets("Foglio3").Range("a12")
Worksheets("Foglio3").Range("a3").Value = ditta
Worksheets("Foglio3").Range("d6").Value = matricole
Worksheets("Foglio3").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Elio\Desktop\VBA DISTINTE TUBI" & Range("a3").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False ' <-- Attenzione devi variare percorso su riga precedente
Worksheets("Sheets2").Range("a1:f200").Clear
Application.ScreenUpdating = True
MsgBox "Operazioni concluse."
End Sub
Torna a Applicazioni Office Windows
Formattazione testo in grassetto in una textbox di una form Autore: deniel69 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visual Studio C#. Passaggio dati tra un Form e l'altro. Autore: pacifico |
Forum: Programmazione Risposte: 1 |
Selezionate le celle mettere in ordine con precisi criteri Autore: ikwae |
Forum: Applicazioni Office Windows Risposte: 34 |
Visitano il forum: Ricky0185 e 41 ospiti