Pagina precedente | 1 2 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Contare celle da destra con particolari condizioni

Ultimo Aggiornamento: 18/06/2019 07:56
Post: 3.769
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
03/06/2019 14:20

Sostituisci l'altro codice con questo...
Option Explicit
Sub Conta_ssss_finali()
Dim Ur As Long, Col As Long, X As Long, Y As Long, Tot As Long
Ur = Range("F" & Rows.Count).End(xlUp).Row
For X = 4 To Ur
    Tot = 0
    For Y = Cells(X, 43).End(xlToLeft).Column To 6 Step -1
        If Cells(X, Y) = "D" Then
            Cells(X, 3) = Tot
            Exit For
        ElseIf Cells(X, Y) = "S" Then
            Tot = Tot + 1
        Else
            Cells(X, 3) = Tot
            Exit For
        End If
    Next Y
Next X
MsgBox "Fatto"
End Sub


Per finIre ho scritto....
Sulla sinistra trova Modulo1 e doppio-clic
Adesso sulla destra cancella tutto ed inserisci il codice sotto...

IL CODICE DEVE ESSERE IN MODULO1 NON IN FOGLIO1
[Modificato da raffaele1953 03/06/2019 14:30]
Excel 2013
Post: 147
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
03/06/2019 15:20

fatto...mi riporta una serie di zeri...il mio schema parte da f4 ed arriva ad aq33.

mi riporta tutti zeri...
Post: 3.770
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
03/06/2019 15:37

Riallega, per me è giusto...1,4,0,1
[Modificato da raffaele1953 03/06/2019 15:39]
Excel 2013
Post: 148
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
03/06/2019 15:50

Riallego subito grazie
Post: 3.771
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
03/06/2019 16:29

Dato che la faccenda diventa lunga, sei pregato di spiegarTi per bene.
Oppure lascio perdere.

1) Toglimi una curiosità, che ha scritto i zeri?
2) Dove hai inserito il codice?
3) Cosa c'entrano le righe 40:70? Significa che forse ci saranno altre righe?

Aspetto una spiegazione per correggere il codice
Excel 2013
Post: 149
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
03/06/2019 17:02

Scusami, allora la parte di sotto riporta in automatico le s, d e o dei vari giorni.
I tasti piccoli sotto a calcola servono uno a copiare solo valori dal foglio di sotto (nelle celle di quello di sotto anche se non le ho copiate ci sono formule per ogni cella), altro a levare tutti gli o.
In questo modo avrei il foglio di sopra identico a quello di sotto con solo s, d e spazi vuoti.
La formula calcola dovrebbe calcolare le ultime s presenti quindi a partire da destra e fermare il conteggio a spazio vuoto o a lettera d.

Riesci ad aiutarmi?Magari fare tasto unico.
grazie di tutto e scusa per i pochi dati
Post: 3.772
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
03/06/2019 17:58

Provalo
Excel 2013
Post: 150
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
03/06/2019 18:18

Funziona, sembra che il calcola e ripulisci impieghi qualche minuto...

Riprovo
Post: 151
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
03/06/2019 18:25

sul tuo foglio funziona, anche se il tasto di sotto ci impiega anni per calcolare.

Ho provato a copiare la formula ssss su modulo 1 e lasciare il mio calcola che copia valori e cancella o per poi applicare tue formule...sempre tutti 0

Il tuo file si blocca e non mi fa neanche chiudere excel...come mai...sarà il mio pc..??

Per altro funziona perfettamente...sob
[Modificato da Pako96 03/06/2019 18:34]
Post: 3.773
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
03/06/2019 18:49

A me copia e ripulisci = 5/6 secondi, il calcola 2/3 secondi
[Modificato da raffaele1953 03/06/2019 18:49]
Excel 2013
Post: 152
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
03/06/2019 19:05

mi inizio a preoccupare....come posso fare...non tanto per il copia ma per la formula finale, per la precedente uso tasti miei per la tua perfetta come posso farla funzionare?
Come cancellare le macro? Evidentemente ho dei problemi con varie macro...aiutami...

[Modificato da Pako96 03/06/2019 19:53]
Post: 153
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
04/06/2019 08:17

Ciao, ho copiato il tuo file integralmente sul io excel, funziona alla grande ma ci impiega moltissimo tempo (un paio di minuti) per eseguire òle macro, lampeggia il cursore tra freccia e manina e blocca tutto.

C'è secondo te qualche conflitto di macro?
come eliminarle?

Grazie

Ho provato è con ricopia e ripulisci che ci mette anni
[Modificato da Pako96 04/06/2019 08:18]
Post: 3.775
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
04/06/2019 10:07

Premesso che in 40 post, non ne vedo uno con una spiegazione adeguata di cosa desideri.
Premesso che in 40 post non Ti è sembrato utile allegare il file originale.
Premesso che esistono dei Call Center che possono risolvere qualsiasi problema.
Io non conosco il motivo...
Excel 2013
Post: 154
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
04/06/2019 19:15

Scusa ti allego il mio file epurato dai dati, dovrebbe essere scheletro per la formula

Grazie cmq di tutto
[Modificato da Pako96 05/06/2019 08:13]
Post: 3.779
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
05/06/2019 18:26

Cambia PC a me la prima ha messo 7/8 secondi e la seconda 2/3 secondi
Dato che le formule erano in errore ho aggiunto una riga
On Error Resume Next
Cl = Replace(Cl, "o", "")
Del files preferisco non dire nulla.
Un saluto
[Modificato da raffaele1953 05/06/2019 18:32]
Excel 2013
Post: 155
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
05/06/2019 19:44

Grazie anche io non preferisco parlarena...mica potresti fare un ultimo sforzo e compilarmi la formula completa?
Grazie

Ho provato a compilarla ma indovina...non funziona.
Riusciresti a compilarla tu per me?
Grazie
[Modificato da Pako96 07/06/2019 07:53]
Post: 156
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
07/06/2019 18:39

Raffaele1953, potresti completarmi la formula inserendo la parte che hai aggiunto?
Grazie
Post: 3.787
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
08/06/2019 18:37

Di quale formula stai parlando? Forse >>>=SE('2-6-19'!#RIF!<>0;'2-6-19'!#RIF!;"")
Forse per Te "sparlare a vanvera è facile"
Se invece Ti riferisci al codice (è già scritto nel post 5/06/2019 18.26)
Excel 2013
Post: 157
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
10/06/2019 18:49

Scus, parlavo della formula di raffaele, mi ha detto di aggiungere:

Cambia PC a me la prima ha messo 7/8 secondi e la seconda 2/3 secondi
Dato che le formule erano in errore ho aggiunto una riga

On Error Resume Next
Cl = Replace(Cl, "o", "")

No ne sono capace, puoi completarmi tu la formula con la precedente di Raffaele?
Grazie
Post: 3.790
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
11/06/2019 00:01

Post: 158
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
11/06/2019 17:00

ALLORA:

Chiudete, scrivete risolto e fate statue d'oro....grazie a tutti ragazzi
Post: 159
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
17/06/2019 14:42

funziona....funziona...anzi funzionava...la formula è perfetta xò...in ufficio riempiono più giorni insieme ed alcuni parzialmente.
Pertanto la parte di sotto dell'elenco risulta incompleta ee la parte di sopra non riesce a calcolare....
Mica possibile incrementare una cella nella quale si inserisce una data e calcola fino a quella data?

Grazie

[Modificato da Pako96 17/06/2019 14:46]
Post: 2.263
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
17/06/2019 17:18

Non dubitavo che saresti tornato con l'ennesimo "non funziona.."!!!, Questo il motivo per il quale il 31 maggio ti ho detto che non sarei più intervenuto.

Faccio un piccolo riepilogo dei tuoi post, tralasciando quelli del 17 maggio e 29 maggio:
23/05/2019 18.58: Perfetto funziona alla grande, perchè non ci ero riuscito prima?
24/05/2019 07.51: Neanche a dirlo...perfetto. 
24/05/2019 08.10: Come non detto, admin dovete trovare modo per punirmi sembra funzioni tutto
24/05/2019 17.19: Il bello che ora funziona perfettamente la parte calcolo....nel frattempo mi hanno cambiato tutte le impostazioni
25/05/2019 10.23: Credo di aver risolto, la formula embra funzionare, è un problema di celle non vuote.
25/05/2019 12.51: Continua a non funzionare... perchèèèèèèèè
29/05/2019 13.35: RISOLTO,
30/05/2019 15.12: AARG...non funziona
03/06/2019 18.18: Funziona,
11/06/2019 17.00: ALLORA: Chiudete, scrivete risolto e fate statue d'oro....grazie a tutti ragazzi
17/06/2019 14.42: funziona....funziona...anzi funzionava


il tutto inframmezzato di richieste varie che ogni volta cambiavano le carte in tavola e, quel che è più grave, di mancanza di spiegazioni chiare.

Ora, obiettivamente, tu credi davvero che con queste incertezze ti si possa aiutare?

Saluti
[Modificato da dodo47 17/06/2019 17:23]
Domenico
Win 10 - Excel 2016
Post: 160
Registrato il: 06/12/2005
Città: ACCIANO
Età: 46
Utente Junior
excel 2010-2013
OFFLINE
18/06/2019 07:56

Non credo, spero.

Ho allegato ilfile copiandolo, come vedi nella parte di sotto mancano dei dati degli ultimi giorni, questo crea un errore.
Se potessi scegliere copia fino a data...e poi calcola , sarebbe perfetta.

Grazie
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:34. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com