Importare immagini

[Gianca532011]

Come non detto, da prove fatte mi sembra più sicuro chiudere a mano che in automatico .

[Gianca532011]

Altro problemino. Ho questa macro di stampa associata a 5 pulsanti

Sub Stampa()
Application.ScreenUpdating = False

PrSh = Replace(ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text, "Stampa ", "")

'Workbooks.Open Filename:="C:\documenti\Storico.xls"
Sheets(PrSh).Visible = True
Sheets(PrSh).Select
Range("A1:F40").Select
Righe = 40
For C = Righe To 14 Step -1
If Cells(C, 14).Value = "" Then
Cells(C, 14).EntireRow.Hidden = True
End If
Next
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, Copies:=1, Collate:=True
Application.ScreenUpdating = True
Sheets("Dati").Select
End Sub


e nella colonna F3 ho questa funzione di ricerca che va a vedere che in C3 non ci sia nulla , quindi (vero) scrive "" nulla in F3, altrimenti fa la scansione e importa la foto.

=SE($C3="";"";CERCA.VERT($E3;settori;2;FALSO))

Tutto cio per dire che non avendo nulla nella colonna F, non dovrei avere stampe di righe vuote, invece regolamente mi stampa fino al rigo 14 di sole righe vuote.

Dov'è l'errore ? Se di aiuto posto il file .
https://www.mediafire.com/?uw1ple411u7s7u9

[ricky53]

Ciao,
non è possibile scaricare il file: il messaggio è "Pagina web non disponibile"

Comunque:
l'area di stampa come è impostata?
A quali valori di righe?

COMMENTO: nella macro fai riferimento alla colonna "14", ossia la "N", vedi

If Cells(C, 14).Value = "" Then

però la colonna cui tu hai fatto riferimento, nel descrivere il problema, è la "F" vedi

Tutto cio per dire che non avendo nulla nella colonna F, non dovrei avere stampe di righe vuote

[Gianca532011]

Ho provato a correggere ma stampa sempre tutto quanto .
Riallego il tutto .
https://www.mediafire.com/?9z16f7u15sevyb1

[ricky53]

Ciao,
non hai risposto alle domande!

Inoltre cosa hai corretto ?


Il file del nuovo link ha sempre lo stesso problema.


Prova con QUESTO LINK

[Gianca532011]

Inoltre cosa hai corretto ?
Ho provato a modificare i riferimenti da C14 C6(F) ma continua a stampare tutto . Il dubbio è questo : nella colonna F , anche se non compare nulla , sotto c'è una istruzione (Se.... Cerca.vert) che sia questa la possibile interferenza ?


http://www.filedropper.com/storico_1

[ricky53]

Ciao,
scusa ma la tua macro cicla dalla riga "40" fino alla riga "15" !!!
Ne segue che le righe dalla "1" alla "14" rimangono visibili e, quindi, stampabili !!!

Perchè hai impostato il ciclo con il valore del ciclo pari a "15" ???

[Gianca532011]

"....somaro" me lo dico da solo per non aver controllato nè capito la logica di quell'istruzione . Ora tutto Ok. Grazie ancora.

[ricky53]

Caio,
alla prossima e ... controlla sempre i cicli For/Next ... potrebbero nascondere insidie.
Eh, Eh !!!