Scopri righe Nascoste

Salve ho un problema da risolvere, e non ho la minima idea di come fare
provo a spiegare il problema, ho delle celle nascoste formattate e con formule, il foglio è così stutturato
A6:AF6 Intestazioni
A7:F6 prima riga dove scrivere
A8:F190 righe nascoste.
ora tramite un pulsante se lo clikko e la cella A7 contiene dei dati è possibile scoprire la riga A8:F9, e cosi via quando la cella A8 contiene dei dati se clikko il pulsante scoprire la riga A9:F9 fino alla fine A8:F190, naturalmente se possibile inserire un messaggio se clikko il pulsante e c'è una riga vuota un avviso se voglio inserire ugualmente la riga o uscire.
nelle righe A191:F191 in giù ci sono altri dati. e il foglio è composto di altri fogli con dati, il foglio interessato si chiama Database1
spero che qualcuno mi dia una mano per risolvere il problema.

allega un file di esempio da testare

Allego un file di esempio, da tenere conto che il file originale è molto più completo in quanto contiene formattazioni e altri dati

non ho capito cosa vuoi ottenere, non vedo pulsanti, spiegati meglio

il pulsante non c'è perchè non c'è il codice da associare, sè hai guardato il file allegato vedi che l'ultima riga compilata è la riga A9:F9 il codice che serve è far scoprire una cella nascosta quando l'ultima cella dell'intervallo contiede dati, in questo caso l'Intervallo è da A7:F46, naturalmente la cella A9 contiene dati la riga da scoprire sarà la A10:F10 e cosi fino alla riga A7:F46, naturalmente se possibile inserire un messaggio se clikko il pulsante e c'è una riga vuota un avviso se voglio inserire ugualmente la riga o uscire.

prova questa

Ciao Patel ho provato la sub, ma non succede niente, clikko il pulsante ma la riga non viene visualizzata, riallego il foglio con la sub e il pulsante.

la riga viene visualizzata se ci sono dati, altrimenti no, questo è quanto ho capito

il file l'ho allegato, e in effetti l'ultima cella dell'intervallo contiene dati che è la cella A9, clikko il pulsante per aggiungere una di quelle nascoste, e mi dovrebbe soprire la riga A10, pero non lo fà, non so come mai, dai un occhiata al file allegato con la tua sub e il pulsante Mostra riga. tieni conto che l'ultima riga da tenere in considerazione è la riga A45, nel file di esempio, perche nel file oginile nelle celle sottostanti ci sono celle con altri dati.
Grazie.

ciao Patel, ci siamo quasi, il nuovo codice adesso scoprela la riga, ultima modifica se possibile se clikko il pulsante e c'è già una riga visibile senza dati è possibile far apparire un MsgBox con messaggio tipo c'è giua una riga disponibile vuoi aggiungere un altra, con la possibilà di si aggiungi oppure esci.
Spero che sia fattibile? Grazie ancora

è fattibile, però potresti provarci da te, gli elementi ce l'hai

ciao patel ho modificato il codice come segue, e funziona tutto grazie ancora,
Sub mostra()
Dim RigaInizio As String, RigaFine As String

RigaInizio = 7
RigaFine = 46
'rigafine = Cells(Rows.Count, "A").End(xlUp).Row
visibili = Range("A" & RigaInizio & ":A" & RigaFine).SpecialCells(xlCellTypeVisible).Cells.Count - 1

If (Not Rows(RigaInizio + visibili - 1).Hidden And Cells(RigaInizio + visibili - 1, "A") = "") Then

If (MsgBox("Riga Già Presente, Vuoi Aggiungere lo Stesso?", vbYesNo + vbQuestion, "AVVISO") = vbNo) Then
Exit Sub
End If
End If

Rows(RigaInizio + visibili).Hidden = False
End Sub

volevo sapere se c'è un modo per chiudere la discusione contrassegnandola come risolta, c'è un modo?

non c'è più soddisfazione così ?

Perchè non c'è più soddisfazione così ?

perché invece di ricevere la pappa scodellata l'hai fatto da te

Grazie ancora per l'aiuto e per la pazienza