xLuigi.b

[Roby]

mi potresti dare un aiuto visto che mi sto alenando con vba
nel tuo programma di evidezielotto volevo fare una modifica del estrazione con un altro foglio mettere ogni singolo estratto in una cella sono arrivato fino a qui con il codice mi potresti dare una mano grazie in anticipo
saluti Aldo.G


Private Sub CommandButton1_Click()
nInizio = strctIni.Range.inizio
nFine = strctIni.Range.fine + 2
e = nFine - nInizio


For C = nFine - e To nFine

rr = rr + 1

For r = 1 To 11
a1 = Sheets("Estrazioni").Cells(C, r)

Sheets("Foglio1").Cells(rr, r) = a1


Next
Next
End Sub

 

[LuigiB]

Ciao Aldo , non me ne volere ma non posso anora spiegarti come fare quello he hai chiesto , entro un paio di lezioni tratteremo tutte le funzioni he operano sulle stringhe e allora capirai come scrivere il codice che ti serve , non posso spiegartelo ora perche dovre saltare di palo in frasca senza seguire il filo logico che ho stabilito per spiegarvi il linguaggio.
Porta qualche giorno di pazienza.

 

[Aldo.G]

Grazie Luigi ok aspetto !!

 

[claudio8]

X luigi
Che fai da queste parti???

Stai al post..o tuo non gironzolare che ti viene il mal di testa

claudio