$$Excel-Macros$$ User form Find code to ignore if text box is blank

[Thomas Yantorno]

Hello,

I have code that looks to modify a cell when there is a value placed in a 
user form. My issue is that there are multiple text boxes in the user form 
and I only want the user form to update the cell if there is a value, but 
ignore a text box if there is no value. Currently, it will update the cell 
with value but also update if there is no value by blanking out the cell. I 
would like the program to change the cell if there is a value in text box, 
but if text box blank then leave original value intact. Thank you in 
advance.

Sub ALTaxType()
'Alabama
Dim wbData As Workbook, ws1 As Worksheet, lngLastRow As Long, r As Long, 
ans As Variant
  Set wbData = ThisWorkbook
  Set ws1 = wbData.Sheets(Sheet1)
  

   
With ws1
lngLastRow = .Cells.Find(what:=*, After:=.Cells(1, 1), 
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
  For r = lngLastRow To 2 Step -1  ' Assumes row 1 contains col headers
  If .Cells(r, A) = Alabama Then
' Populates column G with textboxvalue
.Cells(r, G) = frmTx.txtboxAL.Value ' .Rows(r).Delete ' If you 
want to delete row
  End If
  Next r
End With

End Sub 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.

$$Excel-Macros$$ Blank out corresponding column if multiple criteria found

[Thomas Yantorno]

Hello All,

I have code that will look through column A for the string AL and if it if 
found will blank out column B 
if there is a value in the cell in the same row as column A. What I have 
been trying to do is perform 
same procedure but is there a way I can use multiple states, e.g. Look to 
column A for AL,AR,AZ,CA and 
blank out corresponding column B if found. Any questions or concerns feel 
free to post.
Thank you so much, your assistance is greatly appreciated.

 


'This will blank out column B if AL in column A

Sub Blankitout()

Dim lastrow As Integer, i As Integer

lastrow = Range(A  Rows.Count).End(xlUp).Row
 For i = 1 To lastrow
  If Range(A  i) = AL Then
 Range(B  i).ClearContents
  End If
 Next
End Sub

-- 
Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros?hl=en.
For more options, visit https://groups.google.com/groups/opt_out.