vba

[spectrus 0]

olá,sou novado em vba mas tenho o seguinte codigoSub CONTA()Dim x, y, num As IntegerRange("c2:c178").Name = "conjunto" num = 0 For x = 1 To 178 If UCase(Worksheets(1).Range("conjunto").Value) = UCase("A") Then num = num + 1 End If Next Worksheets(6).Range("B3").valeu = numEnd Subele vai pegar da celular c2 ate a celula c178 e ver se tem a letra "A" e a cada q encrotra o num recebe + 1depois vi jogar na planilha uniao o resultado;mas da o seguinte erro "Tipo Incompativel"como resolvo ou alguem sabe fazer isso de outra forma.

[alexandrehdk 0]

Troque as linhasFor x = 1 To 178If UCase(Worksheets(1).Range("conjunto").Value) = UCase("A") ThenporFor x = 1 To 177If UCase(Worksheets(1).Range("conjunto").Item(x)) = "A" ThenMotivos:1) de 2 a 178 são 177 elementos. Assim, a célula "C2" é o item "1" do range "conjunto".2) Não precisa usar UCASE("A"), pois "A" já está em maiúsculoNão sei se foi falha de digitação, mas uma das suas linhas estáWorksheets(6).Range("B3").valeu = numDeveria serWorksheets(6).Range("B3").Value = num