Telefonino.net network
Inviata da gianbi_b il 16 ottobre 2018 - alle ore 16:45:44

Buon giorno
Non riesco a gestire la "IF" della macro "Date ricette" della macro Ricetta Farmaci (allegata).Mi spiego la macro dovrebbe gestire la (IF ) se c'è una X a colonna D, copiare la data di colonna N alla colonna E.
Con l'eliminazione della stessa X nella riga attuale.Proseguendo poi con il sort per data.
Ringrazio
Bianchi Giancarlo
V.Riviera 37
27010 San Genesio ed Uniti Pavia

All: Macro Date_Ricette

Sub Date_Ricette()
'Creata da Bianchi Giancarlo in data Ottobre 2016
'Copia data N7 in E7
'
Dim iRisposta As Integer
Dim x As String
' If D7 = x Then
' Range("N7").Select
' Selection.Copy
' Range("E7").Select
' Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, S
' Range("d7").Select
' Selection.ClearContents 'Cancella "X" riga D7 '
' End If
'
' Selezione Per data Ricetta (col.E)
'
Sort:
Range("c7:Y41").Select
Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' ActiveWorkbook.Save
'
' Scelta per stampa o uscire
'
iRisposta = MsgBox("STAI PER USCIRE, VUOI STAMPARE IL FILE ???", vbYesNoCancel)
Select Case iRisposta 'impostiamo il Select Case con riferimento al messaggio
'restituito dalla variabile iRisposta
Case vbYes 'se risponderemo "Si" :
' ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'salveremo il file e stampa
Application.Quit 'chiuderemo cartella ed Excel
Case vbCancel 'se sceglieremo "Annulla":
Exit Sub 'usciremo dalla routine
Case vbNo 'se sceglieremo "No":
ActiveWorkbook.Save 'salviamo la cartella
Application.Quit 'chiuderemo cartella ed Excel
Case Else
End Select
End Sub

Posta la tua soluzione

Sai come risolvere questo problema?

Condividi la soluzione con gli altri utenti di Techassistance

Non hai trovato la soluzione che cercavi? continua a navigare nelle categorie: Programmazione - Visual Basic


Utility, AJAX, J2ME, Python, Perl, Silverlight, Flash, Vbscript, C#, Javascript, XML, ASP.NET, ASP, PHP, Objective-C...



    • Assistenza a domicilio
    • Se hai un problema tecnologico per il quale necessiti dell'intervento di un tecnico specializzato, puoi utilizzare il nuovo servizio "Assistenza a domicilio". Potrai così contattare i tecnici specializzati Techassistance che risiedono nella tua zona per chiedere loro un preventivo gratuito su un intervento di assistenza direttamente presso la tua abitazione.

      Voglio saperne di più..

© Copyright 2017 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa. Tutti i diritti sono riservati Contatti: info@techassistance.it • Informativa sulla Privacy • Condizioni di utilizzo