+ Reply to Thread
Results 1 to 3 of 3

VBA to skip if certain cell is blank

  1. #1
    Registered User
    Join Date
    02-17-2010
    Location
    new york
    MS-Off Ver
    Excel 2007
    Posts
    45

    VBA to skip if certain cell is blank

    Hello,

    I have the current code but I need it to skip certain rows if column "F" contains a date. I would assume this to be fairly easy to add to the code? I've attached a sample spreadsheet to help. All help is most appreciated!

    PHP Code: 
    Sub ChangeLetterCodesByRowMG()

    Dim Col As Long
    Dim Letters 
    As StringNextLtr As Long
    Dim NextA 
    As RangeFirstA As Range

    Application
    .ScreenUpdating False
    Letters 
    "BCDEFGHIJKLMNOPQRSTUVWXYZBCDEFGHIJKLMNOPQRSTUVWXYZ"
    Set NextA Range("T:X").Find("A"LookIn:=xlValuesLookAt:=xlWhole_
                    SearchOrder
    :=xlByRowsSearchDirection:=xlNext)
    Set FirstA NextA

    Do
        If 
    Rows(NextA.Row).Hidden False Then
            NextLtr 
    InStr(LettersCells(NextA.Row24)) + 1
            
    For Col NextA.Column 1 To 24
                Cells
    (NextA.RowCol) = Mid(LettersNextLtr1)
                
    NextLtr NextLtr 1
            Next Col
        End 
    If
        
    Set NextA Range("T:X").FindNext(NextA)
    Loop Until NextA.Address FirstA.Address

    Application
    .ScreenUpdating True

    End Sub 
    Attached Files Attached Files
    Last edited by playtowinpb@msn.com; 05-18-2011 at 08:31 AM.

  2. #2
    Administrator JBeaucaire's Avatar
    Join Date
    03-21-2004
    Location
    Bakersfield, CA
    MS-Off Ver
    2010, 2016, Office 365
    Posts
    33,492

    Re: VBA to skip if certain cell is blank

    This should do it:
    Please Login or Register  to view this content.
    _________________
    Microsoft MVP 2010 - Excel
    Visit: Jerry Beaucaire's Excel Files & Macros

    If you've been given good help, use the icon below to give reputation feedback, it is appreciated.
    Always put your code between code tags. [CODE] your code here [/CODE]

    ?None of us is as good as all of us? - Ray Kroc
    ?Actually, I *am* a rocket scientist.? - JB (little ones count!)

  3. #3
    Registered User
    Join Date
    02-17-2010
    Location
    new york
    MS-Off Ver
    Excel 2007
    Posts
    45

    Re: VBA to skip if certain cell is blank

    Perfect! Thank you!

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1