Edit a working macro so it can check a value in a cell

**fjrlopes** · 01-15-2015, 02:44 PM

Good day to all in first place

I am new to VBA and need some help to edit a working macro so it can check a value in a cell, I do this process ever month for 500 sheets (same sheet just changes month and employer name)

Example of what is working at the moment:

Sub Imprimir()
With Worksheets("Francisco")
With .Range("L4")
If IsNumeric(.Value) Then
.Value = .Value + 1
.Parent.PrintOut preview:=False
Else
MsgBox "Cell isn't numeric!"
End If
End With
End With
End Sub

Now what I need is to check if cell (D4) has text(employer name) or ( 0 ) 0=employer no longer works with us there for don't need to print

Hope the information is enough
Thanks a lot!!!!

**Mumps1** · 01-15-2015, 03:02 PM

In your code you test the value of L4 but in your explanation you say you want to check D4. Which cell do you want to check? You want to check the cell if it contains the number 0. Is this correct?

**fjrlopes** · 01-16-2015, 04:15 AM

Originally Posted by Mumps1

In your code you test the value of L4 but in your explanation you say you want to check D4. Which cell do you want to check? You want to check the cell if it contains the number 0. Is this correct?

Sorry for the bad explanation, cell ("L4") looks up the employer name and fills the name in cell ("D4") but if ("L4") name is blank it puts a 0 in cell ("D4").
But the same worksheet prints from 1 - 500 only changing the employer nº ("L4") and Name ("D4").

Conclusion: when I press ctrl+p it prints but if ("D4") is 0 then it still adds 1 to ("L4") even if it does not print

**Mumps1** · 01-16-2015, 10:24 AM

If you simply want to increase the value of L4 by 1 if D4=0 then this would do it.

Sub Imprimir1()
    If Sheets("Francisco").Range("D4") = 0 Then
        Range("L4") = Range("L4") + 1
    End If
End Sub

I don't think that I am clear on what you want to do. It would be easier to understand if I could see your data. Could you attach a copy of your file and include a detailed explanation referring to specific cells and worksheets.

**fjrlopes** · 01-16-2015, 11:46 AM

Firstly I want to thank you for the intresste in helping out.

Let me see if I can explain the situation,

the sheet starts 0 on ("L4")every month if you tell it to print it prints the sheet and automatically changes ("L4") to the next nº. 1,2,3,4,ect.
when you get to a number where sheet "Funcionarios" has no name in cell ("D4") appears a 0.

That I want is where ("D4")=0 don't print but pass ("L4") to next number

**Mumps1** · 01-16-2015, 12:12 PM

Try this code:

Sub Imprimir1()
    If Sheets("Francisco").Range("D4") = 0 Then
        Range("L4") = Range("L4") + 1
    Else
        MsgBox ("Print")
        Range("L4") = Range("L4") + 1
    End If
End Sub

change the msgbox line to your print command line.

Edit a working macro so it can check a value in a cell

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Edit a working macro so it can check a value in a cell

Re: Edit a working macro so it can check a value in a cell

Re: Edit a working macro so it can check a value in a cell

Re: Edit a working macro so it can check a value in a cell

Re: Edit a working macro so it can check a value in a cell

Re: Edit a working macro so it can check a value in a cell

Thread Information

Users Browsing this Thread

Similar Threads

Edit a working macro so it can check a value in a cell

Vba macro check and add records from working file to other workbooks

[SOLVED] Spell check macro not working :(

[SOLVED] Allow users to edit ranges not working after running a Macro?!

Check cell...if not empty copy row (EDIT FOR ADDITIONAL PROBLEM)

Bookmarks

Bookmarks

Posting Permissions