in rete ho trovato un foglio excel che mi inetressava e ho cercato di
tradurre le macro
le + semplici ci sono riuscito ma x altre due no
anche cercando in rete e con l'aiuto sul canale irc ho dovuto desistere
sono troppo comlicate x la mia portata e le mie conoscenze ( tra l'altro
scarse di programmazione) vi chiedo un aiuto MOLTO consistente
ho anche chiesto al legittimo proprietario se una volta tradotto lo
potessi donare alla comunità Ooo (si tratta di una gestione semplificata
di magazzino) e sono in attesa di risposta
altre macro sono simili e se mi commentate il codice mi servirà da
lezione x prossimi futuri
grazie ancora
1
Rem Attribute VBA_ModuleType=VBAModule
Sub Modulo2
Rem Sub INSERIMENTO_DATI()
Rem
Rem ' Macro registrata il 23/10/2005
Rem
Rem If Range("Data") = "" Then
Rem MsgBox (" Dati Incompleti")
Rem End
Rem End If
Rem
Rem If Range("Articolo") = "" Then
Rem MsgBox (" Dati Incompleti")
Rem End
Rem End If
Rem
Rem If Range("Scarico") > Range("GIACENZA") Then
Rem
Rem MsgBox ("Scarico superiore a giacenza!")
Rem
Rem End
Rem End If
Rem
Rem If Range("Carico") = "" And Range("Scarico") = "" Then
Rem MsgBox (" Dati Incompleti")
Rem End
Rem End If
Rem
Rem If Range("Carico") > 0 And Range("Scarico") > 0 Then
Rem
Rem MsgBox (" Inseriti movimenti in uscita e in entrata")
Rem End
Rem End If
Rem
Rem If Range("Ultimo_prezzo") = "" Then
Rem MsgBox (" Dati Incompleti")
Rem End
Rem End If
Rem
Rem
Rem
Rem Range("Riga_dati").Select
Rem Selection.Copy
Rem
Rem ActiveSheet.Range("A1").Select
Rem ActiveCell.Range("ASTERISCO").Select
Rem Selection.End(xlDown).Select
Rem ActiveCell.Offset(1, 0).Range("A1").Select
Rem 'ActiveSheet.Paste
Rem 'Application.CutCopyMode = False
Rem Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
Rem :=False, Transpose:=False
Rem Range("A1").Select
Rem
Rem Dim n As Range
Rem
Rem Range("A1").Select
Rem Range("Ultimo_prezzo").Select
Rem Selection.Copy
Rem
Rem Set n = Range("COORDINATA")
Rem
Rem Sheets("Descrizione ARTICOLI").Select
Rem Range("A1").Select
Rem Range("G" & n).Select
Rem
Rem ActiveSheet.Paste
Rem Application.CutCopyMode = False
Rem
Rem Sheets("Archivio movimentazioni").Select
Rem
Rem Range("DATA").Select
Rem Selection.ClearContents
Rem
Rem Range("ARTICOLO").Select
Rem Selection.ClearContents
Rem
Rem Range("CARICO").Select
Rem Selection.ClearContents
Rem
Rem Range("Scarico").Select
Rem Selection.ClearContents
Rem
Rem Range("CAUSALE").Select
Rem Selection.ClearContents
Rem
Rem Range("ULTIMO_PREZZO").Select
Rem Selection.ClearContents
Rem
Rem Range("NOME_CLIENTE").Select
Rem Selection.ClearContents
Rem
Rem Range("NOME_FORNITORE").Select
Rem Selection.ClearContents
Rem
Rem
Rem
Rem Range("A1").Select
Rem 'Range("Data").Select
Rem
Rem
Rem End Sub
Rem
End Sub
--------------------------------------------------------------------
2
Rem Attribute VBA_ModuleType=VBAModule
Sub Modulo11
Rem Sub STAMPA_FORNITORI()
Rem '
Rem ' STAMPA_FORNITORI Macro
Rem ' Macro registrata il 26/12/2005 da Alberto Nosotti
Rem '
Rem Dim STAMPAFOR As Integer
Rem
Rem ActiveSheet.PageSetup.PrintArea = ""
Rem
Rem
Rem STAMPAFOR = Range("NUMERO_FORNITORI") + 11
Rem
Rem Range("A1").Select
Rem Range("B10:F" & STAMPAFOR).Select
Rem
Rem
Rem With ActiveSheet.PageSetup
Rem .PrintTitleRows = "INTESTAZIONE_FORNITORI"
Rem
Rem End With
Rem With ActiveSheet.PageSetup
Rem '.LeftHeader = ""
Rem .CenterHeader = "ELENCO FORNITORI"
Rem '.RightHeader = ""
Rem
Rem .LeftFooter = "&D"
Rem
Rem '.CenterFooter = ""
Rem
Rem .RightFooter = "&P"
Rem
Rem '.LeftMargin = Application.InchesToPoints(0.78740157480315)
Rem '.RightMargin = Application.InchesToPoints(0.78740157480315)
Rem '.TopMargin = Application.InchesToPoints(0.984251968503937)
Rem '.BottomMargin = Application.InchesToPoints(0.984251968503937)
Rem '.HeaderMargin = Application.InchesToPoints(0.511811023622047)
Rem '.FooterMargin = Application.InchesToPoints(0.511811023622047)
Rem '.PrintHeadings = False
Rem '.PrintGridlines = False
Rem '.PrintComments = xlPrintNoComments
Rem
Rem .CenterHorizontally = True
Rem
Rem .CenterVertically = False
Rem
Rem .Orientation = xlPortrait
Rem
Rem '.Draft = False
Rem
Rem .PaperSize = xlPaperA4
Rem
Rem '.FirstPageNumber = xlAutomatic
Rem '.Order = xlDownThenOver
Rem '.BlackAndWhite = False
Rem
Rem .Zoom = 60
Rem
Rem '.PrintErrors = xlPrintErrorsDisplayed
Rem
Rem
Rem End With
Rem
Rem Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
Rem
Rem Range("A1").Select
Rem '
Rem End Sub
Rem Sub STAMPA_CLIENTI()
Rem '
Rem Dim STAMPACLIENTI As Integer
Rem
Rem ActiveSheet.PageSetup.PrintArea = ""
Rem
Rem
Rem STAMPACLIENTI = Range("NUMERO_CLIENTI") + 11
Rem
Rem Range("A1").Select
Rem Range("B10:F" & STAMPACLIENTI).Select
Rem
Rem
Rem With ActiveSheet.PageSetup
Rem .PrintTitleRows = "INTESTAZIONE_CLIENTI"
Rem
Rem End With
Rem With ActiveSheet.PageSetup
Rem '.LeftHeader = ""
Rem .CenterHeader = "ELENCO CLIENTI"
Rem '.RightHeader = ""
Rem
Rem .LeftFooter = "&D"
Rem
Rem '.CenterFooter = ""
Rem
Rem .RightFooter = "&P"
Rem
Rem '.LeftMargin = Application.InchesToPoints(0.78740157480315)
Rem '.RightMargin = Application.InchesToPoints(0.78740157480315)
Rem '.TopMargin = Application.InchesToPoints(0.984251968503937)
Rem '.BottomMargin = Application.InchesToPoints(0.984251968503937)
Rem '.HeaderMargin = Application.InchesToPoints(0.511811023622047)
Rem '.FooterMargin = Application.InchesToPoints(0.511811023622047)
Rem '.PrintHeadings = False
Rem '.PrintGridlines = False
Rem '.PrintComments = xlPrintNoComments
Rem
Rem .CenterHorizontally = True
Rem
Rem .CenterVertically = False
Rem
Rem .Orientation = xlPortrait
Rem
Rem '.Draft = False
Rem
Rem .PaperSize = xlPaperA4
Rem
Rem '.FirstPageNumber = xlAutomatic
Rem '.Order = xlDownThenOver
Rem '.BlackAndWhite = False
Rem
Rem .Zoom = 60
Rem
Rem '.PrintErrors = xlPrintErrorsDisplayed
Rem
Rem
Rem End With
Rem
Rem Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
Rem
Rem Range("A1").Select
Rem '
Rem
Rem '
Rem End Sub
Rem
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
