Espressione VB

Hai un problema con Excel?

Nuova discussione

Espressione VB
di Luigi (utente non iscritto) data: 22/11/2017 11:34:16
Ciao a tutti
vorrei gentilmente sapere come indicare:
tempo fa "alfrimpa" mi ha cortesemente indicato questa macro per salvare la fattura su un foglio chiamato " 1°Trim"
Ora vorrei, se possibile salvare la fattura nella tabella "Trim1" che si trova nel foglio "Riepilogo Iva"
Grazie ancora
di alfrimpa data: 22/11/2017 11:41:48
Ciao Luigi

Senza il file e la macro è impossibile rispondere.

Alfredo
di Luigi (utente non iscritto) data: 22/11/2017 11:55:02
Invio copia Macro
Sub RegistraFattura()
'
' REGISTRAZIONE FATTURA VENDITE
'
Dim ur As Long
Dim fgl As String
Dim Scelta As Integer
Scelta = MsgBox("Vuoi registrare la fattura?", vbYesNo)
If Scelta = vbYes Then
Select Case Month(Sheets("FattVend").Range("J16").Value)
Case 1 To 3
fgl = "1°Trim" (vorrei registrare la fattura in "Foglio 10 "Riepilogo Iva" Tabella "Trim1")
Case 4 To 6
fgl = "2°Trim"
Case 7 To 9
fgl = "3°Trim"
Case 10 To 12
fgl = "4°Trim"
End Select
ur = Sheets(fgl).Cells(Rows.Count, "B").End(xlUp).Row
Sheets(fgl).Cells(ur + 1, 2).Value = Sheets("FattVend").Range("J15").Value
Sheets(fgl).Cells(ur + 1, 3).Value = Sheets("FattVend").Range("J16").Value
Sheets(fgl).Cells(ur + 1, 4).Value = Sheets("FattVend").Range("J19").Value
Sheets(fgl).Cells(ur + 1, 5).Value = Sheets("FattVend").Range("J52").Value
Sheets(fgl).Cells(ur + 1, 6).Value = Sheets("FattVend").Range("J53").Value
Sheets(fgl).Cells(ur + 1, 7).Value = Sheets("FattVend").Range("J55").Value
MsgBox Prompt:="Fattura Registrata !", Buttons:=vbInformation, Title:="Contabilità StellaMaris"
End If

End Sub
di alfrimpa data: 22/11/2017 11:56:48
E il file?
di Luigi (utente non iscritto) data: 22/11/2017 13:18:57
chiedo scusa, ho allegato il file.
Ci sono un mucchio di problemi dovuti al riordino delle macro.
di Luca73 data: 22/11/2017 18:10:17
Io non riesco a scaricare il file mi restituisce errore
Ciao
Luca
di alfrimpa data: 22/11/2017 19:23:08
Anche a me.

Alfredo
di Luigi1948 (utente non iscritto) data: 23/11/2017 16:26:34
Ho visto che non siete riusciti ad aprire il mio file.
Ho aperto una nuova discussione perché, non capisco per quale motivo, non sono riuscito ad allegare il mio file.
Saluti
di Luigi1948 (utente non iscritto) data: 24/11/2017 16:17:24
Come già detto, tutto risolto perfettamente
Grazie a tutti
di Marius44 data: 24/11/2017 16:27:09
Carissimi amici scusatemi
non m'ero accorto che il nostro Luigi aveva aperto due discussioni uguale. In questa non ha allegato il file mentre nell'altra si.
Gli ho dato la soluzione ma, e questo e ciò che mi fa andare in bestia, lui non la condivide qui. Non è questo lo spirito del Forum.
Mi pento di avergliela fornita.
Scusate ancora e se mi dovesse capitare di incontrare una sua richiesta NON RISPONDERO'!!!

Ciao,
Mario
di Luigi1948 data: 24/11/2017 16:42:57
Ho letto con dispiacere lo sfogo di Mario e lo capisco.
Volevo soltanto dire che, probabilmente ho fatto anche un po' di confusione fra le due discussioni che ho maldestramente aperto. Ho spiegato il motivo: nella prima discussione non sono assolutamente riuscito ad allegare il file che mi avete chiesto.
Non volevo, credetemi, mancare di rispetto a nessuno. Ho già detto, e ripeto, che non finirò mai di ringraziare tutti per la vostra disponibilità e professionalità.
Voi tutti, però, dovreste anche capire che io, come sicuramente, altri, siamo alle prime armi, soprattutto con i Forum. Non vi conosco ancora per nome. Se le cose, come spero, andranno avanti, sicuramente questo fatto spiacevole non succederà più.
Comunque porgo ufficialmente le mie scuse a Mario e gli sarei grato se considerasse l'accaduto con un po' di benevolenza.
un saluto a tutti

Vuoi Approfondire?