• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cel legen en vullen

  • Onderwerp starter Onderwerp starter thst
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
thst

thst

Gebruiker
Lid geworden
10 apr 2001
Berichten
655
Hallo allemaal,

Ik heb in een cel in verschillende kleuren tekst staan, nu wil ik dat als cel A1 een waarde heeft van 1 de tekst weggaat of wit wordt, of in ieder geval niet meer zichtbaar is maar als de waarde van A1 0 is moet de orginele tekst met de kleuren terug komen in de cel.

Wie kan me daarmee verder helpen ?

Angela
 

Bijlagen

Beste thst ;)

De tekst wit laten worden zal wel geen probleem zijn met VBA code, maar de originele tekst terug plaatsen is een ander paar mouwen.

Groetjes Danny. :thumb:
 
met kopieren en plakken blijven de kleuren intakt

Angela
 
Beste thst ;)

thst zei:
met kopieren en plakken blijven de kleuren intakt

Angela
Klik om te vergroten...

Ja , dat klopt, maar dan moet je ze eerst wegschrijven naar een andere cel en dan terug oproepen.
Je vraagt in je openigstopic om de cel weg te laten of wit te maken !

Groetjes Danny. :thumb:
 
als de tekst maar in die cel weggaat als A1 '1' is en als de A1 '0' is dat de tekst met kleuren weer in dezelfde cel staat. De tekst mag best ergens op het werkblad 'geparkeerd' staan !


Angela
 
Laatst bewerkt:
Ik heb een aantal dagen terug een topic gezien voor VBA met het commando 'undo' maar ik kan het niet meer vinden, misschien dat het daarmee kan.

Angela
 
Als er verder niets op dezelfde regel staat is dit een oplossing:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
  If Range("A1") = 1 Then
     Rows("7:7").EntireRow.Hidden = True
    Else
  If Range("A1") = 0 Then
     Rows("7:7").EntireRow.Hidden = False
  End If
  End If
End Sub

Suc6, Cobbe
 
Laatst bewerkt:
Doe ik iets verkeerd ?
Zie niets gebeuren.............


Angela
 

Bijlagen

Beste thst ;)

Plak de code in Blad 1 van de VBA editor.

Groetjes Danny. :thumb:
 
Hallo betere excellers dan ik,

heb de code onderaan mijn code 'verwerkt' Als P11=0 dan moet er geen logo staan.
dan moet die gaan printen, vervolgens wordt P11 weer 1

met onderstaande code werkt dat niet, ziet iemand wat ik verkeerd doe ?

Code: 
Sub opslaan_en_mailen()


'If MsgBox("Loes weet je zeker dat de factuur goed is ?", vbQuestion + vbYesNo) = vbYes Then
'If lAnswer = vbYes Then Hoort bij MsgBox Loes....

'End If Hoort bij MsgBox Loes ....
'Author : Ken Puls ([url]www.excelguru.ca[/url])
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from [url]http://sourceforge.net/projects/pdfcreator/[/url])
' Designed for late bind, no references req'd

Dim pdfjob As Object
Dim sPDFName As String
Dim sPDFPath As String

MyName = Range("P29").Value & ""
'/// Change the output file name here! ///
sPDFName = MyName & ".xls"
'"testPDF.pdf"
sPDFPath = "E:\A2B4U\Opdrachten\2010\New\"
'ActiveWorkbook.Path & Application.PathSeparator

'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

'Print the document to PDF
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
If MsgBox("Factuur mailen ?", vbQuestion + vbYesNo) = vbYes Then
'versturen van pdf via mail
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)

With Itm
'.Subject = "Bijgaand de factuur, en bevestiging aflevering."
.Subject = "Betreft rit: " & Range("O33").Value 'Plaats - Plaats
.To = Range("O32").Value & "" 'vul hier een mail adres in
.CC = ""
.Bcc = ""
'.Body = Range("P31").Value & Range("O31").Value & vbNewLine & vbNewLine & Range("P32").Value & vbNewLine & Range("P33").Value & vbNewLine & vbNewLine & Range("P34").Value & vbNewLine & Range("P35").Value & vbNewLine & vbNewLine & Range("P36").Value & vbNewLine & Range("P37").Value & vbNewLine & Range("P38").Value & vbNewLine & vbNewLine & Range("P39").Value & vbNewLine & Range("P40").Value
.Body = Replace([P31] & [O31] & "#" & "#" & [P32] & "#" & [P33] & "#" & "#" & [P34] & "#" & [P35] & "#" & "#" & _
                [P36] & "#" & [P37] & "#" & [P38] & "#" & "#" & [P39] & "#" & [P40], "#", vbNewLine)

.Attachments.Add sPDFPath & "\" & Replace(sPDFName, "xls", "pdf") 'Factuur word gemaild. (0123456789.pdf)
sPDFPath = "E:\A2B4U\Opdrachten\2010\"
.Attachments.Add sPDFPath & "\" & (Range("O29").Value) 'Vrachtbrief word gemaild. (0123456789v.pdf)

.Display
'.Save
'.Send

End With
Else
End If
'End If Hoort bij MsgBox Loes ....
'End Sub
'If Intersect(Target, Range("p11")) Is Nothing Then Exit Sub
  Worksheets(6).Cells(11, 16) = 0
Application.Calculate
If Range("p11") = 0 Then
     Rows("6:9").EntireRow.Hidden = True
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
    Else
  Worksheets(6).Cells(11, 16) = 1
Application.Calculate
If Range("p11") = 1 Then
     Rows("6:9").EntireRow.Hidden = False
  End If
  End If
End Sub

Angela
 
Laatst bewerkt:
De code is heel wat anders.
Onder meer om berichten te emailen.

Wat je vraag betreft:

Handmatig P11 op 1 zetten om rij 7 te verbergen:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("7:7").EntireRow.Hidden = Range("P11").Value
 
End Sub

Via code rij 7 verbergen, printen en vervolgens rij 7 weer tonen:
Code: 
Sub legen_vullen()
Rows("7:7").EntireRow.Hidden = True
Cells.PrintOut
Rows("7:7").EntireRow.Hidden = False

End Sub

Persoonlijk zou ik kiezen voor een andere mogelijkheid; namelijk een tekstvak.
Deze kunnen je naar je wensen aanpassen en bovendien kan je aangeven of het afgedrukt moet worden of niet.
Dus zelfs al is het zichtbaar op het werkblad dan nog wordt het dan niet afgedrukt als je dat niet wilt.

Met vriendelijke groet,


Roncancio
 
Oke, als ik zou kiezen voor een tekstvak, welke code moet ik dan gebruiken zodat die het niet uitprint ?

Angela
 
thst zei:
Oke, als ik zou kiezen voor een tekstvak, welke code moet ik dan gebruiken zodat die het niet uitprint ?

Angela
Klik om te vergroten...

Geen code heb je daarvoor nodig.

En aangezien je in een Microsoft toepassing bezig bent, probeer eens een rechtermuisklik om bij de Eigenschappen te komen...
 
Als ik in het voorbeeldbestandje #1 op de tekstcel ga staan en klik met de rechtermuisknop zie ik alleen maar cel eigenschappen, en geen eigenschappen.
Daarbij vraag ik me dan ook af hoe de tekst kan blijven staan, zonder dat die dit print ?

Angela
 
thst zei:
Als ik in het voorbeeldbestandje #1 op de tekstcel ga staan en klik met de rechtermuisknop zie ik alleen maar cel eigenschappen, en geen eigenschappen.
Daarbij vraag ik me dan ook af hoe de tekst kan blijven staan, zonder dat die dit print ?

Angela
Klik om te vergroten...

Je had het dan wel over een tekstvak...
 
Wigi,

ik laat dit nog even zitten.
Ik open nu even een nieuw topic 'Code' wil je me daar mee helpen ?

Angela
 
Code: 
If [P11].Value = 0 Then
    Rows("6:9").EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 4100 PCL 6"
    Rows("6:9").EntireRow.Hidden = False
    [P11].Value = 1
End If
 
thst zei:
Wigi,

ik laat dit nog even zitten.
Ik open nu even een nieuw topic 'Code' wil je me daar mee helpen ?

Angela
Klik om te vergroten...

Wellicht nog mosterd na de maaltijd maar in bijgevoegd bestand zit wat tekst en het je Avatar (A2B4U).
Als je naar het afdrukvoorbeeld kijkt, zie je dat alleen de tekst zichtbaar zal zijn op de afdruk.

Zoals al door Wigi is aangegeven, is hier geen code voor nodig.

Met vriendelijke groet,


Roncancio
 

Bijlagen

Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan