Macro per cercare cella non vuota in una riga

martedì 27 luglio 2010 - 14.57
Tag Elenco Tags  Windows XP  |  Office 2003  |  Internet Explorer 7.0

userhell Profilo | Newbie

Ciao a tutti

devo creare una macro che posizioni il cursore nelle prima cella non vuota nella stessa riga della cella attiva. so come utilizzare il ciclo FOR per cercare la prima cella non vuota, ma nn riesco a fissare la riga della cella attiva

angelotv Profilo | Guru

se la cella è la c9 prova con l'istruzione

Range("c9").select


by Angelo

userhell Profilo | Newbie

grazie angelo, ma il mio problema è che la riga della cella attiva cambia in ogni foglio e ogni volta che lancio la macro. speravo fosse possibile usare una variabile che avesse come valore la riga della cella attiva

angelotv Profilo | Guru

credo proprio che tu possa farlo! il mio era solo un esempio.
by Angelo

userhell Profilo | Newbie

questa è la macro che ho provato a creare, ma non funziona; mi sai dire dove sbaglio?
mille grazie

Dim sh As Worksheet
Dim lColonna As Long
Dim row As Range
Set sh = Worksheets("sheet1")
ActiveCell.Offset(-1, 1).Select
Set row = ActiveCell.row.Select
With sh
For lColonna = 1 To .Columns.Count

If .Cells(row, lColonna).Value = "" Then

Sheets("sheet1").Select
Cells(row, lColonna).Select

Exit For
End If
Active.cell.Offset(1, 1).Select
Next
End With

angelotv Profilo | Guru

non conosco così bene il vba da dirti dove sbagli... forse l'errore è nel ciclo! creando una macro con le istruzioni che hai messo tu mi da un caos notevole...
by Angelo

userhell Profilo | Newbie

penso che il problema sia nelle variabili; ho usato questo ciclo per un altro motivo e funzionava perfettamente. non hai qualche idea? ho provato con il comando range. select come mi avevi suggerito ma nn funziona
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5