IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - [RISOLTO]trovare solo numeri con vba
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO]trovare solo numeri con vba

 Post Reply Post Reply Page  <12
Author
Message
cromagno View Drop Down
Utente Avanzato
Utente Avanzato
Avatar

Joined: 17/Nov/2015
Location: Sardegna
Status: Offline
Points: 598
Post Options Post Options   Thanks (0) Thanks(0)   Quote cromagno Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2018 at 11:25
Ad una prima occhiata del file....

Ti sei accorto che tu hai scritto questo:
If Sheets("turnazione").Cells(RR, CC) <> "" Then

mentre il nome del foglio è TURNAZIONE (in maiuscolo) ????
_________________________________________________________
[EDIT]
come mi ha fatto notare Dodo47 (Thumbs Up), in questo caso non viene influenzata la corretta esecuzione del codice ma ritengo sia buona norma riferirsi agli oggetti nel modo "più inequivocabile" possibile....per evitare spiacevoli sorprese in RunTime Wink


Edited by cromagno - 12/Feb/2018 at 12:50
Windows 7 / Windows 10 - Excel 2013

"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
Back to Top
Sponsored Links


Back to Top
cromagno View Drop Down
Utente Avanzato
Utente Avanzato
Avatar

Joined: 17/Nov/2015
Location: Sardegna
Status: Offline
Points: 598
Post Options Post Options   Thanks (0) Thanks(0)   Quote cromagno Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2018 at 11:34
Prova così:


Sub ULTIMA_VOLTA()

    Run "sproteggi"
    Range("K8:K67").ClearContents
   
    For RR = Priga To Uriga 'elenco nomi
        For CC = Ucolonna To Pcolonna Step -1 'colonne giorni dell'anno
            With Sheets("TURNAZIONE")
                If .Cells(RR, CC).Value <> "" And IsNumeric(.Cells(RR, CC).Value) Then
                    .Cells(RR, 11) = .Cells(2, CC)
                    Exit For
                End If
            End With
        Next CC
    Next RR
   
    Run "proteggi"
End Sub

Windows 7 / Windows 10 - Excel 2013

"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
Back to Top
awe1245 View Drop Down
Utente Senior
Utente Senior


Joined: 07/Gen/2008
Status: Offline
Points: 206
Post Options Post Options   Thanks (0) Thanks(0)   Quote awe1245 Quote  Post ReplyReply Direct Link To This Post Posted: 13/Feb/2018 at 13:57
ciao,
il codice di cromagno funziona perfettamente 
avevo già provato ad usare IsNumeric ma una cella vuota la vede true.
l'aggiunta di elaborare solo le celle piene risolve.
che dire.. grazie ancora a tutti!
andrea
Back to Top
 Post Reply Post Reply Page  <12
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,063 seconds.