Condividi:        

Cambiare Macro per controllo Disp e Pari

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Cambiare Macro per controllo Disp e Pari

Postdi neverlandce » 17/10/09 15:06

ciao, ruieccomi qua con i soliti problemi dunque ho questa macro che mi controlla la consecutività D e P
Codice: Seleziona tutto
Sub ContaCns()
Dim P As Integer, D As Integer, a As String, b As String, c As String
rr = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 45), Cells(rr, 46)).ClearContents
For x = 1 To rr
  P = 0
  D = 0
  For y = 1 To 6
    If Cells(x, y) = "P" Then
      If y = 1 Then P = 1
      If y > 1 Then
        If Cells(x, y - 1) = "D" Then
          P = 1
        Else
          If Cells(x, y - 1) = "P" Then P = P + 1
        End If
      End If
    End If
    If Cells(x, y) = "D" Then
      If y = 1 Then D = 1
      If y > 1 Then
        If Cells(x, y - 1) = "P" Then
          D = 1
        Else
          If Cells(x, y - 1) = "D" Then D = D + 1
        End If
      End If
    End If
  Next y
  Cells(x, 45) = P
  Cells(x, 46) = D
Next x
End Sub

    ora il mio problema è che nelle celle da controllare ho la formula:
    "=SE(RESTO(C1:C176;2)>0;"D";"P")
    per cui se lancio la macro non mi funziona in quanto legge nelle celle la formula e non la lettera D o P come faccio a risolvere il problema???
    grazie a tutti
neverlandce
Utente Junior
 
Post: 48
Iscritto il: 27/08/09 18:09

Sponsor
 

Re: Cambiare Macro per controllo Disp e Pari

Postdi neverlandce » 17/10/09 15:24

mi sembra di aver risolto cambiando questa istuzione

For y = 24 To 34
neverlandce
Utente Junior
 
Post: 48
Iscritto il: 27/08/09 18:09

Re: Cambiare Macro per controllo Disp e Pari

Postdi maxmula » 20/10/09 12:54

Vedo solo ora questo post ed immagino tu abbia già risolto.
Puoi comunque leggere il valore dalle celle con il seguente metodo:

Codice: Seleziona tutto
 If Cells(x, y).Value = "P" Then
(...)
End If


Ciao,
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34


Torna a Applicazioni Office Windows


Topic correlati a "Cambiare Macro per controllo Disp e Pari":


Chi c’è in linea

Visitano il forum: Nessuno e 69 ospiti