Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Modificare una macro magica...... Opzioni
dalex
Inviato: Monday, November 12, 2007 6:35:00 PM
Rank: Member

Iscritto dal : 5/9/2003
Posts: 4
Ciao a tutti,mi rivolgo a Voi Maghi di excel e in particolare ad a10n11 che tempo fà(nel 2005)mi aiutò in una macro che calcolava,in automatico i turni di riposo di tutto un anno con la cadenza di un riposo ogni 5 giorni lavorativi ed il foglio era grossomodo strutturato così:Cella B1 data conosciuta del primo riposo:
celle A3:A367 calendario dell'anno (gg/mm/aa)
celle B3:B367 giorni della settimana (ggg)
celle C3:C367 dove si colloca la dicitura "Riposo",ora vorrei mettere per es.celle A3:A33 il mese di gennaio,B3:B33 i gg settimana,C3:C33 il Riposo,e così via D3:D33 mese di Febbraio,E3:E33 i gg e così via,un pò lungo lo so ma spero,come sempre in un vostro miracoloso suggerimento.Grazie antecipate dalex
Sponsor
Inviato: Monday, November 12, 2007 6:35:00 PM

 
a10n11
Inviato: Monday, November 12, 2007 9:46:09 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,696
salve
con una tabella strutturata come nell'immagine:
<img src="http://img80.imageshack.us/img80/2193/imgzh6.jpg" border=0>


prova questa:

Sub calcola_In_Colonna()
Dim x As Date, costante As Integer
Application.ScreenUpdating = False
x = Range("b1")
costante = 6
SMP = 0
SM = 1
For N = 1 To 12
Cells(3, N + SM).Select
Set area = Range(Cells(3, N + SMP), Cells(3, N + SMP).End(xlDown))
Columns(N + SMP + 2).ClearContents
For Each Cl In area
If Cl = x Then
Cl.Offset(0, 2).Select
ActiveCell = "riposo"
Exit For
End If
Next
Do
If ActiveCell.Offset(costante, -1) = "" Then Exit Do
ActiveCell.Offset(costante, 0).Select
ActiveCell = "riposo"
Loop
x = CDate(ActiveCell.Offset(0, -2).Value + 6)
Set area = Nothing
SM = SM + 3
SMP = SMP + 2
Next N
Application.ScreenUpdating = True
Range("A1").Select
End Sub
saluti
Andrea

dalex
Inviato: Thursday, November 15, 2007 9:57:37 AM
Rank: Member

Iscritto dal : 5/9/2003
Posts: 4
......come sempre,non avevo dubbi sei Grande!!!I ringraziamenti sono doverosi ma è sempre troppo poco....grazie di cuore funziona alla grande un salutone e.... al prossimo aiuto?
dalex
Inviato: Thursday, November 15, 2007 11:14:08 AM
Rank: Member

Iscritto dal : 5/9/2003
Posts: 4
Come volevasi dimostrare:neanche un'ora è passata e ti chiedo di nuovo help!Riordinando per benino il foglio che andrà a completare tutto un lavoro,nella tabella che mi hai descritto mi è venuto in mente di dover inserire le festività in automatico,cioè formattare di rosso le celle della data e del giorno della settimana delle festività...ho provato a fare una tabella con le festività a parte ed a usare la formattazione condizionale applicando la funzione =confronta ....ma senza successo decisamente sbagliato ci sono vicino o sono in altomare??Come sempre grazie antecipate.dalex
a10n11
Inviato: Friday, November 16, 2007 2:34:32 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,696
salve
ci sei andato più che vicino, la strada era quella giusta.
vedi in immagine come relaiizare quello che ti serve.
<img src="http://img291.imageshack.us/img291/8684/imgfk1.jpg" border=0>
saluti
Andrea

dalex
Inviato: Sunday, November 18, 2007 1:06:44 PM
Rank: Member

Iscritto dal : 5/9/2003
Posts: 4
Grazie Andrea tutto ok e come sempre grazie di cuore dell'interesse,io se ci sono andato vicino è grazie a voi tutti che mettete la vostra esperienza(e pazienza) sotto forma di aiuti e consigli in queste pagine e chi come me ne fa tesoro e impara giorno dopo giorno,sentendosi sempre di più un vostro amico.Io ritengo che quando nel 2002 mi sono iscritto per la prima volta a questo forum sia una delle cose più giuste fatte nella vita.....ancora grazie di cuore.dalex
dalex
Inviato: Friday, June 29, 2018 11:06:02 PM
Rank: Member

Iscritto dal : 5/9/2003
Posts: 4
....e dopo 11 anni rieccomi...nonostante non ho mai smesso di seguire il sito....ripongo il problema ho rimesso mani a questo foglio di lavoro che funzionava benissimo...ora lanciandolo con office 2016 mi da errore...o meglio appare una finestra di dialogo con una x rossa che dice :"Microsoft Visual Basic Edition" 400.....come posso risolvere in quanto mi torna utile questo foglio più che mai??? so che siete sempre grandi ,Andrea in primis,e in anticipo se leggete,per evitare di aprire un nuovo topic,grazie di cuore per gli aiuti---
maopapof
Inviato: Saturday, June 30, 2018 3:25:44 AM

Rank: AiutAmico

Iscritto dal : 10/31/2004
Posts: 6,678
ciao :O)

se usi office …. sicuramente l'errore é dato da impostazioni che sono , … per dire …. migliorate nel 2016 plus

personalmente

per tagliare la testa al toro e non diventare matto

salva la pagina che utilizzavi sempre ( usando la bandiera )
non in Excel .xlsx ( di default )
ma bensì in …. cartella in Excel 97 - 2003 .xls

( trucco - quando salvi usa sempre la visualizzazione originale … verticale oppure orizzontale altrimenti sfalsi sul fuori pagina )

ciao ed alla prossima :O)




dalex
Inviato: Tuesday, July 03, 2018 1:16:12 AM
Rank: Member

Iscritto dal : 5/9/2003
Posts: 4
.....eemh...grazie maopapof....ma credo di non aver capito....lo so sono tarato male....molto male...ma a quale bandiera ti riferisci? il file è già .xls ....forse bisogna rielaborare foglio e relativa macro...ma attendo istruzioni in merito... ;) ;) ;)
maopapof
Inviato: Tuesday, July 03, 2018 9:06:36 PM

Rank: AiutAmico

Iscritto dal : 10/31/2004
Posts: 6,678
parlo di salvare una pagina

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.