Macro needed for 2x textbox

DB73

DB73

Board Regular
Joined
Jun 7, 2022
Messages
111
Office Version
  1. 365
  2. 2021
  3. 2019
  4. 2016
  5. 2010
  6. 2007
Platform
  1. Windows
  2. Mobile
  3. Web
Hey Guys,

My question is as follow
i took a little VBE code here from the forum, but i want it twice

for Cell B11 and O11
but i need just another text

so i put this code twice, changed the cells but then it says that it has a double name

this is the code;
VBA Code: 
'reden onkosten

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B11")) Is Nothing Then Exit Sub
    If Target <> "" Then
       
        MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End Sub

this works;
VBA Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim form As CalendarForm
    Dim d As Date

    If Target.Address = "$B$16" Then
        Set form = New CalendarForm
        d = form.GetDate(SelectedDate:=Date)
        If d > 0 Then Target.value = d
       
     Range("D15").Select
 
  End If
 
End Sub

'reden onkosten

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B11")) Is Nothing Then Exit Sub
    If Target <> "" Then
       
        MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End Sub

but this doesnt:
VBA Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim form As CalendarForm
    Dim d As Date

    If Target.Address = "$B$16" Then
        Set form = New CalendarForm
        d = form.GetDate(SelectedDate:=Date)
        If d > 0 Then Target.value = d
       
     Range("D15").Select
 
  End If
 
End Sub

'Order extra's

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B11")) Is Nothing Then Exit Sub
    If Target <> "" Then
       
        MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End Sub

'Onkosten

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("O11")) Is Nothing Then Exit Sub
    If Target <> "" Then
       
        MsgBox "Gelieve bij **Reden onkosten** de reden aan te geven van de gemaakte onkosten", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End Sub

can/will someone help me so the 2 textboxes will work.

thanks in advance
 
Sort by date Sort by votes
Try it
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim form As CalendarForm
    Dim d As Date

    If Target.Address = "$B$16" Then
        Set form = New CalendarForm
        d = form.GetDate(SelectedDate:=Date)
        If d > 0 Then Target.Value = d
       
     Range("D15").Select
 
  End If
 
End Sub

'Order extra's

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$11" And Target.Address <> "$O$11" Then Exit Sub
    If Target <> "" Then
       
        MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End Sub
 
Upvote 0
hungtbatman1 said:
Try it
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim form As CalendarForm
    Dim d As Date

    If Target.Address = "$B$16" Then
        Set form = New CalendarForm
        d = form.GetDate(SelectedDate:=Date)
        If d > 0 Then Target.Value = d
      
     Range("D15").Select
 
  End If
 
End Sub

'Order extra's

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$11" And Target.Address <> "$O$11" Then Exit Sub
    If Target <> "" Then
      
        MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End Sub
Click to expand...
thanks for the response
its not exactly what i want bc i want another text(box) with other text if O11 is not empty
 
Upvote 0
I wrote it so there would be no error. And what you want to do, what you want to check, I don't know. Is it that hard to change the code?
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$O$11" And Target.Value <> "" Then
        ' O11 <> ""
    ElseIf Target.Address = "$B$11" And Target.Value <> "" Then
'        B11 <> ""
    End If
End Sub
 
Upvote 0
hungtbatman1 said:
I wrote it so there would be no error. And what you want to do, what you want to check, I don't know. Is it that hard to change the code?
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$O$11" And Target.Value <> "" Then
        ' O11 <> ""
    ElseIf Target.Address = "$B$11" And Target.Value <> "" Then
'        B11 <> ""
    End If
End Sub
Click to expand...
i needed to check B11 and than i needed a messagebox
but
i also wanted to check O11 and needed another messagebox with another message.

but i got is working now with this:
VBA Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
' order extra
    If Target.Address = "$B$11" And Target.value <> "" Then
            If Target.Address <> "$B$11" And Target.Address <> "$B$11" Then Exit Sub
                If Target <> "" Then
      MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
'reden onkosten
    ElseIf Target.Address = "$O$11" And Target.value <> "" Then
             If Target <> "" Then
      MsgBox "Gelieve bij **Reden onkosten** hier de ren van de onkosten op te geven", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End If
End Sub

so thanks for the help
 
Upvote 0
Solution
I really don't understand.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
' order extra
    If Target.Address = "$B$11" And Target.Value <> "" Then
'    (A)
            If Target.Address <> "$B$11" And Target.Address <> "$B$11" Then Exit Sub
                If Target <> "" Then
      MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
'reden onkosten
    ElseIf Target.Address = "$O$11" And Target.Value <> "" Then
'    (B)
             If Target <> "" Then
      MsgBox "Gelieve bij **Reden onkosten** hier de ren van de onkosten op te geven", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End If
End Sub
When the code enters point (A), then it is definitely Target.Address = "$B$11", and definitely Target.Value <> "". Otherwise, the condition Target.Address = "$B$11" And Target.Value <> "" is not met and the code has no right to enter point (A). If the condition is met, why
Code: 
If Target.Address <> "$B$11"
even twice!Why?And why
Code: 
If Target <> "" Then
???At point (A), it is already 200% certain that Target.Address = "$B$11" And Target.Value <> ""

The same at point (B), it is definitely Target.Address = "$O$11" And Target.Value <> "", because otherwise, the condition is not met and the code has no right to enter point (B). If so, why
Code: 
If Target <> "" Then
??? If the code reaches point (B), then it is 200% certain that Target <> ""
 
Upvote 0
hungtbatman1 said:
I really don't understand.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
' order extra
    If Target.Address = "$B$11" And Target.Value <> "" Then
'    (A)
            If Target.Address <> "$B$11" And Target.Address <> "$B$11" Then Exit Sub
                If Target <> "" Then
      MsgBox "Gelieve bij **Order extra's** hier het ordernummer op te geven op welke de Km's gedeclareerd moet worden", vbOKOnly + vbInformation, "OPGELET !!"
    End If
'reden onkosten
    ElseIf Target.Address = "$O$11" And Target.Value <> "" Then
'    (B)
             If Target <> "" Then
      MsgBox "Gelieve bij **Reden onkosten** hier de ren van de onkosten op te geven", vbOKOnly + vbInformation, "OPGELET !!"
    End If
End If
End Sub
When the code enters point (A), then it is definitely Target.Address = "$B$11", and definitely Target.Value <> "". Otherwise, the condition Target.Address = "$B$11" And Target.Value <> "" is not met and the code has no right to enter point (A). If the condition is met, why
Code: 
If Target.Address <> "$B$11"
even twice!Why?And why
Code: 
If Target <> "" Then
???At point (A), it is already 200% certain that Target.Address = "$B$11" And Target.Value <> ""

The same at point (B), it is definitely Target.Address = "$O$11" And Target.Value <> "", because otherwise, the condition is not met and the code has no right to enter point (B). If so, why
Code: 
If Target <> "" Then
??? If the code reaches point (B), then it is 200% certain that Target <> ""
Click to expand...
i think u dont understand my question for what i wanted
 
Upvote 0
I've shown that your code with IF's in (A) and (B) are unnecessary. As for me not understanding what you want to do, you're absolutely right. Good luck.
 
Upvote 0
You must log in or register to reply here.

Similar threads

Emka
  • Question Question
Web Scrap on Chrome via VBA
Replies
0
Views
289
Emka
Emka
Rip1971
  • Solved
Copy code does not copy
Replies
5
Views
533
offthelip
O
L
  • Question Question
MACROS WORK WELL, BUT WHEN I DELETE THE DATA TO LEAVE THE FILE WITHOUT INFORMATION, MACROS DON'T WORK
Replies
1
Views
252
leobrice
L
H
  • Question Question
For Next loop on Pivot Table field
Replies
2
Views
347
Alex Blakenburg
A
L
  • Solved
Updating data in cell, run the macro again and it should not happen.
2 3 4
Replies
34
Views
1K
mumps
mumps

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top