How to Call a Macro with tow conditions

[azad092]

Hi
I am using the given code to call a macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$4" Then
Call DataEntryToExpense
End If
End Sub

I want to add one more condition to call the macro
first condition is the specific word in the cell B4 and the second condition is d4
so when B4 have a specific and and the D4 have the specific word then the macro should be run
please guide me in this issue

 

[gordsky]

can you add an "AND" statement to your existing code?
is the specific word always the same or do you mean if b4 contains the same word as d4?

 

[azad092]

can you add an "AND" statement to your existing code?
is the specific word always the same or do you mean if b4 contains the same word as d4?

thanks for you kind attention
actually i have some data sheets... from the main sheet i want to transfer data by using macro...
so B4 is a dropdown list of different sheets and d4 is for post the data into the concerned sheet

 

[bebo021999]

If you want to search "Hello" partial match in B4 then

f Target.Address = "$D$4" And Instr(range("B4").value, "Hello")>0 Then

 

[azad092]

If you want to search "Hello" partial match in B4 then

f Target.Address = "$D$4" And Instr(range("B4").value, "Hello")>0 Then

I apply the given code but it return the code as shown in the image

 

[azad092]

If you want to search "Hello" partial match in B4 then

f Target.Address = "$D$4" And Instr(range("B4").value, "Hello")>0 Then

I apply the given code but it return the code as shown in the image, even when i click in a cell this compile error shows

 

[bebo021999]

The macro "DataEntryToUtilities" may not work properly.
Could you share that macro?

 

[azad092]

The macro "DataEntryToUtilities" may not work properly.
Could you share that macro?

yes this macro work properly... even if I run it directly or call it after single if condition then it works but after the double condition its not working

 

[bebo021999]

Test with:

Replace
Call DataEntryToExpense
by
Msgbox "OK"

 

[azad092]

The macro "DataEntryToUtilities" may not work properly.
Could you share that macro?

Option Base 1
Sub DataEntryToUtelities()
    Dim EntryCell   As Range, DataEntryRange As Range
    Dim wsUtelities       As Worksheet
    Dim NextRow     As Long
    Dim Arr         As Variant
    Dim i           As Integer
    
    With ThisWorkbook
        'cells to copy from Data Entry sheet
        Set DataEntryRange = .Worksheets("DASHBOARD").Range("A4:D4")
        ' database sheet
        Set wsUtelities = .Worksheets("Utelities")
    End With
    
    'database ranges to send data entry values
    Arr = Array("A", "B", "C", "D")
    
    'output array to database range
    With wsUtelities
        NextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        
        For Each EntryCell In DataEntryRange.Cells
            i = i + 1
            .Cells(NextRow, Arr(i)).Value = EntryCell.Value
            EntryCell.ClearContents
        Next
    End With
    
    'inform user
    MsgBox "New Record In Expense Has been Posted Succussfully", 64, "DOCTOR'S LAB (Utelities)"
End Sub