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.
