| | Post: 11 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
08/03/2020 12:25 | |
salve a tutti e buona domenica e ancora auguri a tutte le donne,
ciò premesso chiedo forse un semplicissimo aiuto
a come riportare i su i dati di una colonna
evitando di cambiare dati come dal più piccolo
al più grande e viceversa.
Esempio se nella colonna sono presenti dati
iniziando da rigo 8:
25, 30, 12,1 , 100 e via dicendo
NON
devono scambiarsi di posizione.
Se nella colonna il 25 è nella prima posizione
tale deve rimanere e non devono accorparsi
cioè incolonnarsi uno dietro l'altro i duplicati.
Dalle opzioni che offre il foglio non ho trovato
o meglio capito come fare e se del caso mi andrebbe
bene anche una macro.
Grazie e possibilmente dopo la macro buon appetito
|
|
| | Post: 2.553 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
08/03/2020 13:09 | |
si capisce poco...anzi niente😉
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 11 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
08/03/2020 14:28 | |
Salve dodo,
brevemente:
in una colonna ci sono dei dati numerici
sparsi.
vorrei riportarli in su senza spostare la sequenza di ogni numero
Se 25 sta al primo posto deve essere il primo di tutto
l'ordine dei numeri e così via per gli altri.
ciao |
| | Post: 2.554 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
08/03/2020 16:45 | |
Sono abituato ad essere educato anche quando altri non lo sono. Non ti ho risposto perchè da "anziano" (personalmente) mi faccio la classica pennichella pomeridiana e non per "sfotterti" come con presunzione hai ritenuto.
Nell'altro post ti ho risposto :
pipp1 e pipp2
perchè la tua domanda era:
gga:
...che i 2 fogli sono stati
rinominati esempio foglio1 = pipp1 e foglio2 = pipp2.
e qualora è possibile che la formula cerca i dati da
pipp1 in pipp2 nell'indirizzo cosa si dichiara:
foglio2 oppure pipp2?
Ciò premesso rispetto la tua volontà di non intervenire nei post da te scritti.
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 916 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
08/03/2020 16:53 | |
Un saluto a tutti.
gga46, non ci siamo. E' impossibile capire esattamente cosa intendi fare. Cosa sono 'dati numerici sparsi' ? Perché se 25 è primo così deve rimanere ? ovvero, che valenza ha ?
Forse è il caso di allegare un file con un preciso esempio dove prima ci metti i dati come sono attualmente e a fianco o su un foglio a parte a mano riporti esattamente come vorresti il risultato. Non servono moltissimi dati anche solo una decina di righe (neglio 20) ed eventualmente altrettante colonne; naturalmente rispettando l'impaginazione dei dati nel foglio attuale. [Modificato da rollis13 08/03/2020 16:57]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 12 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
08/03/2020 17:19 | |
salve rollis,
ok per il tuo intervento come chiarificatore,
ho capito cosa dimostrare per essere aiutato.
Un attimo che preparo i dati.
Grazie |
| | Post: 13 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
08/03/2020 17:42 | |
preciso che la colonna interessata
è la p e comincia proprio da p8
i cui dati possono arrivare fino alla riga 6000
l'allegato in sintesi |
| | Post: 14 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
08/03/2020 18:07 | |
Sub Elimina_vuota1()
Application.ScreenUpdating = False
Dim C1, Intervallo As Range
With Foglio4
Set C1 = Range("gy2").End(xlDown)
End With
Set C1 = Intervallo = Uni0n(C1)
Intervallo.Copy
Range("gz2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste.ActiveCell
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Salve,
stavo tentando con questa macro
e la macro si ferma a Union
perchè è il metodo che non è esatto
poichè non devo lavorare su più colonne
ma nel caso mio su una sola.
Potrei avere un chiarimento in merito
con quali dati si deve correggere la macro
per ottenere il risultato?
Grazie
|
| | Post: 2.266 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
09/03/2020 12:09 | |
ciao
Option Explicit
Sub xxxx()
Dim i As Long, Friga As Long
Friga = Cells(Rows.Count, "P").End(xlUp).Row
For i = Friga To 8 Step -1
If Cells(i, "P") = "" Then
Range("P" & i + 1 & ":P" & Friga).Cut
Cells(i, "P").Select
ActiveSheet.Paste
End If
Next i
Range("P1").Select
End Sub
[Modificato da locatevaresino 09/03/2020 12:10] Ciao da locate
excel 2007 / 13 |
| | Post: 15 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
09/03/2020 14:17 | |
Salve,
ho copiato la macro
nel mio file e avviata.
Pare non faccia niente, dico pare.
Cerco di spiegarmi meglio,
nella colonna a partire da rigo 8 della colonna
ci sono delle celle vuote, moltissime,
ogni tanto trova un numero
questo numero man mano che vengono
eliminate le celle vuote deve occupare
p8 e continua ad eliminare celle vuote
il secondo numero della colonna deve occupare
p9 e via scorrendo per altri che se ce ne sono
dovranno occupare p10, p11, p12 eccetera.
Tutti i numeri sparsi in colonna dovranno
resettarsi col primo numero che trova,
da p8 così come li trova.
Grazie dell'intervento
Ciao |
| | Post: 2.267 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
09/03/2020 14:45 | |
ciao
la macro va inserita nel modulo del foglio
riallego il tuo file con inserita questa in foglio1, in foglio2 e' una copia originale di foglio1
[Modificato da locatevaresino 09/03/2020 14:47] Ciao da locate
excel 2007 / 13 |
| | Post: 16 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
09/03/2020 16:08 | |
Salve,
se posso chiedere ad un esperto di formule
essere accorpato 2 formule in una.
Allego il file
le 2 formule si trovano in n8 e p8
le quali danno l'esito in colonna p.
Il motivo è per evitare di occupare 1
colonna invece di 2.
La macro funziona come dati esatti,
è un po lenta se si può dare un turbo.
Per provare la macro copiare n8 e p8
e con ctrl+freccia in giù si distribuiscono
le formule e con copia incolla valore.
Poi avviare la macro per considerazioni.
Salve |
| | Post: 2.268 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
09/03/2020 17:36 | |
ciao
in O8
=SE(CONTA.SE(C7:G7;">0")=2;1;SE(CONTA.SE(C8:G8;">0")<>2;O7+1;O7+1))
per la sub lenta metti
Option Explicit
Sub xxxx()
Application.ScreenUpdating = False ''<----
Dim i As Long, Friga As Long
Friga = Cells(Rows.Count, "P").End(xlUp).Row
For i = Friga To 8 Step -1
If Cells(i, "P") = "" Then
Range("P" & i + 1 & ":P" & Friga).Cut
Cells(i, "P").Select
ActiveSheet.Paste
End If
Next i
Application.ScreenUpdating = True ''<----
Range("P1").Select
End Sub
Ciao da locate
excel 2007 / 13 |
| | Post: 17 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
09/03/2020 18:28 | |
Salve Locate,
grazie per il doppio disturbo
macro e formula.
saluti |
| | Post: 18 | Registrato il: 04/03/2020
| Età: 77 | Utente Junior | 2019 | | OFFLINE | |
|
11/03/2020 17:14 | |
Salve Locate,
se non disturbo e ciò che sia possibile
della formula scritta se possibile
avere il risultato finale.
Cerco di spiegarmi
nella colonna O invece di dare zero
avere il risultato diretto senza
avere a cominciare da rigo 8
1-2-3-4-5-6-7 e appunto troviamo 0
che deve essere uguale a 8,
poi si ha l'altro 0 che = 8,
per continuare l'esempio il prossimo
zero deve dare 11 e non continuo,
per avere per esempio:
8 alla rigo 15;
8 alla riga 23;
11 alla riga 34 eccetera
sempre della colonna O.
Ciao [Modificato da gga46 11/03/2020 17:31] |
|
|