PRINTING ALL OPTIONS ON A DROP DOWN LIST

[EMASOFT]

recieve kind greetings
am tryin to print all options from a drop down menu the code is runnig well but then it goes ahead to print even the blank cell my code is

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("RPT").Range("U13")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

 

[Kaper]

How about checking if given entry is not empty? Like:

For Each xCell In xRgVList
  if trim(xCell.Value)<>"" then
    xRg = xCell.Value
    ActiveSheet.PrintOut
  end if
Next

 

[EMASOFT]

thank you
how do i use the vba code? do i have to edit my already existing code? or delete and paste ths?
thank you for your help

 

[Kaper]

Replace the loop in your code. so the whole Sub will now look like:

Sub Iterate_Through_data_Validation()
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Set xRg = Worksheets("RPT").Range("U13")
Set xRgVList = Evaluate(xRg.Validation.Formula1)
For Each xCell In xRgVList
  if trim(xCell.Value)<>"" then
    xRg = xCell.Value
    ActiveSheet.PrintOut
  end if
Next
End Sub

 

[EMASOFT]

thank you so much
code works perfectly well

 

[Kaper]

I'm glad that I could help

 

[smozgur]

thank you so much
code works perfectly well

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.