Doppie Forme stesso nome

[BOLDOS75Partecipante BOLDOS75]

Buongiorno, avrei bisogno di un aiuto, nel file che allego, ho quattro shapes , due con lo stesso nome 

e altri due con stesso nome.

Chiedo se possibile far comparire i suddetti  quando le condizioni sono soddisfatte , nel mio caso in C4 e in C10?

Grazie mille.

Uso M.S.O.P.P.2021

Allegati:

You must be logged in to view attached files.

[scossaPartecipante scossa Karma: 37 pts]

BOLDOS75 ha scritto:

ho quattro shapes , due con lo stesso nome 

e altri due con stesso nome.

Scusa, ma c'è un valido motivo per usare nomi uguali? vuoi farti del male?

P.S.: dovresti fare un piccolo sforzo e scrivere nel post, in modo chiaro e dettagliato, le condizioni da verificare.

[BOLDOS75Partecipante BOLDOS75]

Chiedo solo se possibile, se dovessi usare in un foglio più shapes , altrimenti  per ogni shapes che  uso darò un altro nome .

[BOLDOS75Partecipante BOLDOS75]

Scusate, le condizioni nel mio file di esempio e che vorrei usare se fosse possibile uno shapes (freccia sù) e (freccia giù) con stesso nome, per più confronti ,per non creare tutte le volte stessa forma .

Spero di non aver fatto troppa confusione.

[scossaPartecipante scossa Karma: 37 pts]

cancellato: impossibile scrivere qualcosa con un po' di formattazione seria (nemmeno il font si può cambiare)    

[scossaPartecipante scossa Karma: 37 pts]

BOLDOS75 ha scritto:

,per non creare tutte le volte stessa forma .

ma tu comunque crei 4 forme, non è che dandogli lo stesso nome diventano due.

Set F1MA = Shapes("F1MA")

tu come capisci a quale, delle due che hai creato, ti stai riferendo?

[gianfranco55Partecipante gianfranco55 Karma: 90 pts]

ciao

la tua macro

Option Explicit

''-------------------------- INIZIO MODIFICA AGGIUNTA COMPAIONO FRECCE IN sh1 --------------------
'Sub Wo()
Private Sub Worksheet_Calculate()
Dim va1 As Variant
Dim vb1 As Variant
Dim F1MA As Object
Set F1MA = Shapes("F1MA")
Dim F1MB As Object
Set F1MB = Shapes("F1MB")
If va1 <> Range("C10").Value Then
va1 = Range("C10").Value
'----------- INIZIO AGGIUNTA FRECCIA SU IN sh1 -----------------
F1MA.Visible = IIf(va1 = ("FALSO"), True, False) '
Set F1MA = Nothing
' Set MB = Nothing
End If 'End If va1
''----------- INIZIO AGGIUNTA FRECCIA GIU' IN sh1 -----------------
If vb1 <> Range("C10").Value Then
vb1 = Range("C10").Value
F1MB.Visible = IIf(vb1 = ("VERO"), True, False)
Set F1MB = Nothing
End If 'End If vb18
' -333 'End If vb18
End Sub

da subito capisci che funziona in base al valore della cella C10

ma tu le altre forme le devi visualizzare in base al valore cella C4

di base per me è il sistema che è errato

devi creare una freccia su o giù per ogni cella avvalorata

C4 C10 C..pinco pallo

non so se sbaglio ma è tutto da rifare

quel che non capisco è perchè usare il vba quando si può sfruttare la formula

non è bello come con il vba ma sicuramente più gestibili

 

[BOLDOS75Partecipante BOLDOS75]

Quindi per ogni forma che voglio far apparire si devono dare nomi diversi ?

Tipo nel mio file di esempio,  il confronto tra A10 e B10 le frecce che compaiono nella colonna C10 devono avere un nome.

Mentre nel confronto tra A4 e B4 le frecce che dovrebbero comparire nella colonna C4 devono avere un altro nome diverso da quelle che compaiono in  C10 

[gianfranco55Partecipante gianfranco55 Karma: 90 pts]

scusate

ma sono sparite la mia risposta

e una risposta di Boldo

??????????

[gianfranco55Partecipante gianfranco55 Karma: 90 pts]

riprovo

hai la macro che fa riferimento solo alla cella C10

deve essere creato un ciclo che faccia riferimento e più celle

C4 C10 ecc.....

in pratica rifare tutto

perchè non sfrutti la formula e metti semplicemente delle frecce colorate

esempio

=SE($A4=$B4;"Ç";"È")

formattato

Wingdings 3

con la formattazione condizionale

=$C3="Ç"

=$C3="È"

 

puoi anche usare due colonne e usare due frecce

come sembra piacere  a te

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

scossa ha scritto:

cancellato: impossibile scrivere qualcosa con un po' di formattazione seria (nemmeno il font si può cambiare)

Eh lo so voi giovani d'oggi siete abituati a editor di post spettacolari pieni di funzioni e di grafica   

Ricordo la precedente edizione di questo forum che non offriva nemmeno la formattazione del testo durante la digitazione dei post, ed era tanto se il buon Mauro aveva implementato la possibilita' di aggiungere la formattazione del codice. A me pero' personalmente cosi' piace, senza eccessivi fronzoli    piu' preoccupante e' invece che ogni tanto spariscono dei post (forse vengono classificati come spam da Akismet, adesso controllo)

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

gianfranco55 ha scritto:

ciao

la tua macro

Era la risposta #46487 che era finita nello spam e che ho recuperato

[scossaPartecipante scossa Karma: 37 pts]

vecchio frac ha scritto:

Ricordo la precedente edizione di questo forum che non offriva nemmeno la formattazione del testo durante la digitazione dei post

Appunto, ottimo: i giusti tag html e facevo quello che volevo (do you remember jack?)!!!

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Hai ragione, e' vero che si poteva fare e qualcuno lo faceva. Purtroppo si potevano anche fare danni (e Mauro un bel giorno aveva disabilitato i tag html). Temo che, quando si ripensa con nostalgioia ai tempi passati, e' segno di una certa vecchiezza    percio' meglio guardare qui ed ora, e contentarci   

Tra l'altro scossa, la butto li' visto che sei online, ho paura che mi servira' una mano con alcune espressioni regolari che non riesco a far funzionare nemmeno con l'aiuto di regex101. Se proprio non ne vengo fuori chiedero' l'aiuto tuo e del pubblico   

[scossaPartecipante scossa Karma: 37 pts]

vecchio frac ha scritto:

Se proprio non ne vengo fuori chiedero' l'aiuto tuo e del pubblico   

A disposizione! sempre sperando di esserne in grado.

[BOLDOS75Partecipante BOLDOS75]

Buongiorno, i suggerimenti per shapes mi  vanno bene ,nel file che allego ho inserito come dovrebbe andarmi bene,però ho questo problema , con la macro in sh2  ho creato tre situazioni denominate Esempio 1,2,3 e fino qui tutto mi va bene.

Ma se io voglio  copiare da Foglio1 a Foglio 2 con Prova 1,2,3  mi da errore quando trova  in Prova 2 

''------------------------------- Prova 2 INIZIO X COPIARE DA Foglio1 IN Foglio2 -----------------------------------
sh1.Select
Range("E15", Range("E15").End(xlDown)).Copy (sh2.Range("L15"))
Range("C15", Range("C15").End(xlDown)).Copy (sh2.Range("J15"))
Range("B15", Range("B15").End(xlDown).End(xlToLeft)).Copy (sh2.Range("H15"))
''----------------------------------- Prova 2 FINE X COPIARE DA Foglio2 IN Foglio2 ----------------------------------

ringrazio per suggerimeti

Allegati:

You must be logged in to view attached files.

[alexps81Moderatore alexps81 Karma: 55 pts]

@Baldos75, il codice dovresti inserirlo nei Tag Code e dato che questo è un nuovo argomento è necessario che chiudi questo e ne apri uno nuovo. Ciao.

[BOLDOS75Partecipante BOLDOS75]

Buongiorno, i suggerimenti per shapes mi  vanno bene ,nel file che allego ho inserito come dovrebbe andarmi bene.

Con questo chiudo la discussione.

Grazie a tutti 

[BOLDOS75Partecipante BOLDOS75]

Scusate non avevo spuntato la richiesta come risolta.

Adesso provvedo.

[Autore]

Articoli