Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum1 -- CercaGlobale -- Informativa su Cookie e Privacy


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
[RISOLTO] Calc Unire più macro sullo stesso evento
#1
Salve eccomi di nuovo a chiedere aiuto, sfruttando una macro fornitami su questo forum dal per me mitico Patel vorrei inserire automaticamente l'orario indipendentemente su due colonne al variare del contenuto di una colonna adiacente; allego un file di esempio.
Inserisco un numero in colonna A, automaticamente ho l'orario in colonna B, macro copiata già presente e funzionante di nome eventoCella1 collegata al
foglio - foglio eventi - Contenuto modificato
ora vorrei unire una macro simile  eventoCella2 che già presente in modulo2 ma non collegata perché se ne può collegare una sola, con lo scopo:
inserisco un numero in colonna G, automaticamente ho l'orario in colonna F, eventualmente le colonne si possono anche invertire.
Si possono unire le due macro in un unica macro?
Grazie a tutti e comunque a Patel


Allegati
.ods   Vasca.ods (Dimensione: 17,74 KB / Download: 3)
Cita messaggio
Grazie da:
#2
occorre una sola macro che controlli ambedue le colonne che sono A e G e non A e D
Codice:
Sub eventoCella1(Target)
If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub
sh = Target.getSpreadsheet()
range1 = sh.getCellRangeByName("A13:A200")
range2 = range1.queryintersection(Target.rangeaddress())
range3 = sh.getCellRangeByName("G13:G200")
range4 = range3.queryintersection(Target.rangeaddress())
ActiveCell = thisComponent.getCurrentSelection()
If range2.RangeAddressesAsString <> "" then
 Sh.getCellByPosition(ActiveCell.celladdress.column + 1,ActiveCell.celladdress.row).value = now()
elseif range4.RangeAddressesAsString <> "" then
 Sh.getCellByPosition(ActiveCell.celladdress.column - 1,ActiveCell.celladdress.row).value = now()
End If
End Sub
Cita messaggio
Grazie da: Marrio
#3
Si ho erroneamente inserito la colonna D la macro di unione funziona benissimo e ancora grazie, ulteriore domanda è possibile fare in modo che se azzero (cancello il contenuto) di una cella in colonna A o colonna G. la corrispondente cella in B o in F venga azzerata? Cos'ì avrei tutte le opzioni disponibili.
Posso solo che ringraziare per l'aiuto passato e futuro.
GRAZIE
Cita messaggio
Grazie da:
#4
Codice:
Sub eventoCella1(Target)
If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub
sh = Target.getSpreadsheet()
range1 = sh.getCellRangeByName("A13:A200")
range2 = range1.queryintersection(Target.rangeaddress())
range3 = sh.getCellRangeByName("G13:G200")
range4 = range3.queryintersection(Target.rangeaddress())
ActiveCell = thisComponent.getCurrentSelection()
If range2.RangeAddressesAsString <> "" then
 if ActiveCell.formula = "" then
   Sh.getCellByPosition(ActiveCell.celladdress.column + 1,ActiveCell.celladdress.row).string = ""
 else
   Sh.getCellByPosition(ActiveCell.celladdress.column + 1,ActiveCell.celladdress.row).value = now()
 end if
elseif range4.RangeAddressesAsString <> "" then
 if ActiveCell.formula = "" then
   Sh.getCellByPosition(ActiveCell.celladdress.column - 1,ActiveCell.celladdress.row).string = ""
 else
   Sh.getCellByPosition(ActiveCell.celladdress.column - 1,ActiveCell.celladdress.row).value = now()
 end if
End If
End Sub
Cita messaggio
Grazie da: Marrio
#5
Grandeeee.... ci avevo provato ad intuito da solo ma niente da fare. E' proprio quello che mi occorreva, ora seguendo la falsariga provo di modificare anche quella X singola colonna sul file Carico di qualche giorno fa.
Grazie ,grazie ..grazie; metto Risolto.
Cita messaggio
Grazie da:


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)