[VBA/EXCEL] Macro per concatenamenti e calcoli nelle celle

[Traxsung]

Applicare questa funzioni tramite unica macro

Step 1) concatenare A.B.C funzione-> concatena(A3;”.”;B3;”.”)

Step 2) moltiplicare valori della tabella J * n
Dove n è un numero qualsiasi inserito da me tramite userform
Formula -> J3*n

Step 3) Tabella L quella del si e del no
applicare formula… se testo = “si” scrivere 100 se testo = “no” scrivere 0

Step 4) Tabella K
Sostituire la x_ con y_

Step5) Elimare tutte le righe dove la TabellaB inizi per OK


Vi allego anche il file xls

http://www.megaupload.com/it/?d=LB29ZKMX

oppure

http://rapidshare.com/files/159333912/file.xls.html


Grazie

[Stoicenko]

Apparte che il vusual basic è trattato in un'altra sezione, qual'è la tua domanda??

[Traxsung]

poter far si che le funzioni da me indicate le possa eseguire tramite macro

[oregon]

Ok ... ma una tua proposta non l'hai ?

[Traxsung]

Originariamente inviato da oregon
Ok ... ma una tua proposta non l'hai ?

Scusa... in che senso ?


Cioè a livello di excel e di formule le so fare...nessun problema.
Non so come far fare queste funzioni in VBA

[Stoicenko]

Probabilmente si possono fare con una macro ma qui non si fanno i compiti altrui.. se hai domande, chiarimenti, dubbi ok.. puoi postare il tuo codice se vuoi una mano.. ma niente compiti fatti..

[oregon]

Originariamente inviato da Traxsung
Scusa... in che senso ?

Nel senso che ti ha detto Stoicenko ...

[Traxsung]

Ragazzi io non voglio compiti fatti ci mancherebbe altro.
Potreste almeno farmi l'esempio per uno in modo da poter capire il meccanismo ?

[Traxsung]

Ragazzi leggendo un po in giro ho trovato che devo usare questo comando

Sheets("Foglio2").Cells(3, 2) = Sheets("Foglio1").Cells(3, 10) * N

In pratica dovrebbe prendere le celle (3,10) del foglio1 moltiplicarlo per N e copiare il contenuto su Foglio2
Ma ho provato ad applicarlo ma non va


Mi aiutate ?


Grazie

[Traxsung]

Ho provato a fare così:

j = 1
Do Until Sheets("Foglio1").Cells(j, 2) = Empty
 With Sheets("Foglio2")
 .Cells(j, 2) = Sheets("Foglio1").Cells(j, 2).Value
End With
    j = j + 1
Loop

Tuttavia noto dei rallentamente e che non copia tutti i campi, ma si ferma verso 8000