Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 18 su 18

Macro Sovrascrivere risultati

  1. #11
    Sgrubak non  in linea Scribacchino
    Post
    608
    Like Inviati  
    12
    Like Ricevuti  
    15
    Eh ma ti da errore su quale riga?
    Probabilmente su:
    Ladata = Sheets("Cassa").Range("B3:B64").Value
    
    Non puoi assegnare il Value di un Range multicella ad una variabile di tipo Date.

  2. #12
    ghost69 non  in linea Scolaretto
    Post
    297
    Like Inviati  
    0
    Like Ricevuti  
    0
    Devo scrivere cos?
    Ladata = Sheets("Cassa").Range("B64").Value
    

  3. #13
    Sgrubak non  in linea Scribacchino
    Post
    608
    Like Inviati  
    12
    Like Ricevuti  
    15
    Eh si... Ma devi rendere il riferimento all'indirizzo della cella dinamico. Trova la data nell'ultima riga e confornta quella.

  4. #14
    ghost69 non  in linea Scolaretto
    Post
    297
    Like Inviati  
    0
    Like Ricevuti  
    0
    Aiutatemi!!!
    Ragazzi sono 2 giorni che ci sbatto.
    Non riesco a soddisfare,tradurre questa condizione in macro, la parte evidenziata:

    Sub Se()
    "If il valore della cella B4 si trova nel range B3:B71 Then
    macro1
    else
    macro2
    End if
    End Sub

  5. #15
    Marius44 non  in linea Scolaretto
    Post
    360
    Like Inviati  
    0
    Like Ricevuti  
    5
    Ciao
    Non storcano il naso i "puristi" ma, molto banalmente:
    a) individua il minimo e il massimo fra i valori del range indicato
    b) se il valore della tua cella compreso fra Max e Min fai una cosa, altrimenti ne fai un'altra.

    Ciao,
    Mario

  6. #16
    Sgrubak non  in linea Scribacchino
    Post
    608
    Like Inviati  
    12
    Like Ricevuti  
    15
    Non so come possa esserti utile, pi di controllare le ultime due celle e basta, ma ad ogni modo devi studiare la funzione Range.Find.
    Studia bene in parametri previsti e ricorda che restituisce un oggetto Range. Pertanto dovrai salvare il risultato della funzione in una variabile di tipo Range e dovrai usare il Set
    Dim cella As Range
    Set cella =Range("B3:B71").Find(What:=Range("B4").Value, Lookin:=xlValues)
    
    Poi imposti la condizione dell'If usando l'operatore Is.
    If Not cella Is Nothing
    

  7. #17
    Sgrubak non  in linea Scribacchino
    Post
    608
    Like Inviati  
    12
    Like Ricevuti  
    15
    Quote Originariamente inviato da Marius44 Visualizza il messaggio
    Ciao
    Non storcano il naso i "puristi" ma, molto banalmente:
    a) individua il minimo e il massimo fra i valori del range indicato
    b) se il valore della tua cella compreso fra Max e Min fai una cosa, altrimenti ne fai un'altra.

    Ciao,
    Mario
    Pu funzionare se e soltanto se lui ha le date che sono effettivamente progressive, e non ne deve saltare nemmeno una. E visto che a quanto ho capito dai post precedenti, proprio il suo caso, gli basta verificare che l'ultima data copiata sia minore di quella odierna. Non gli serve nemmeno il minimo.

  8. #18
    ghost69 non  in linea Scolaretto
    Post
    297
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ok ragazzi risolto. La macro creata questa:

    Sub Sovr()
    
    Dim cella As Range
    Set cella = Range("Foglio2!E1:E350").Find(What:=Range("Foglio1!B4").Value, LookIn:=xlValues)
    IsDate (Range("Foglio1!B4").Value)
    
    If Not cella Is Nothing Then
     
    rig = WorksheetFunction.Match(CLng(CDate(Range("Foglio1!B4").Value)), Range("Foglio2!E1:E350"), 0)
    Range("Foglio1!B4:c5").Copy
    Sheets("Foglio2").Select
    Cells(rig, 5).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    
    Else
    
    Range("Foglio1!B4:C5").Select
        Application.CutCopyMode = False
       Selection.Copy
       Sheets("Foglio2").Select
           Range("E350").End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
     Application.CutCopyMode = False
    
     
    End If
    
    End Sub
    
    Grazie a tutti!!!

+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12

Potrebbero interessarti anche ...

  1. Macro non aggiorna risultati automaticamente
    Da Yuzzo nel forum Microsoft Excel
    Risposte: 5
    Ultimo Post: 30-09-2016, 11:02
  2. Sovrascrivere una classe
    Da cldparisi nel forum Visual Basic .Net
    Risposte: 0
    Ultimo Post: 06-12-2006, 16:30
  3. [xml]Sovrascrivere file xml
    Da LUCAB nel forum HTML, CSS e JavaScript
    Risposte: 0
    Ultimo Post: 06-01-2006, 00:48
  4. Sovrascrivere files
    Da Dcpv100 nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 24-10-2005, 13:21
  5. Sovrascrivere un carattere in una stringa
    Da dragonfly nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 05-04-2005, 18:17