contare carte a blackjack

[vittotto]

Salve gia' precedentemente mi avete aiuto a fare un file per il blackjack , adesso mi serve un nuovo aiuto praticamente creare un file dove mi conta le carte di qualsiasi sem nel seguente modo: da 2 a 6 =+1 da 7 a 9 =0 e da asso,10,jq,k = -1
e man mano mi fa la somma
vi ringrazio a presto

[Flash30005]

Ammettendo che il valore delle carte venga trascritto nella colonna A (a partire dalla riga 2)
inserisci in un modulo questo codice

Codice: Seleziona tutto

Public RRA As Integer
Sub ContaC()
Carta = UCase(Range("A" & RRA).Value)
Select Case Carta
Case 2 To 6
Vcarta = 1
Case 7 To 9
Vcarta = 0
Case Else
Vcarta = -1
End Select
Range("B" & RRA).Value = Vcarta
End Sub


e ne Vba del foglio questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
URA = Range("A" & Rows.Count).End(xlUp).Row
Area1 = "A2:A" & URA
If Application.Intersect(Target, Range(Area1)) Is Nothing Then Exit Sub
RRA = Target.Row
ContaC
End Sub


Non devi far altro che riportare i valori nella colonna A

Ciao

[vittotto]

Ciao Flash ma non funziona di sicuro sbaglio io in qualcosa mi da un errore quando lancio la macro " mi da errore run time 1004 metodo range dell'oggetto_global non riuscito " non e' che mi puoi postare il file gia' fatto ? ti ringrazio molto
Ciao

[vittotto]

Ciao Flash ritiro la risposta precedente funziona.. sbagliavo io a mettere il codice lo mettevo come modulo consultando gli esempi del forum ho capito come si mette il codice nel vba del foglio
grazie sei sempre molto bravo a programmare in excel