MadMatLePsyke
New Member
- Joined
- Jan 3, 2023
- Messages
- 18
- Office Version
- 365
- Platform
- Windows
Below my code
IOI ="xxx yyy zzz "
My issue with my IOI string is an email adress, I have one email on my Rng1 but Vba not going to Else
Could you please help me ?
IOI ="xxx yyy zzz "
My issue with my IOI string is an email adress, I have one email on my Rng1 but Vba not going to Else
Could you please help me ?
VBA Code:
Sub PMBLOCK()
Set Wb = ThisWorkbook
Set WsB = Sheets("BOARD")
Set WsDL = Sheets("DL")
Dim LeMail As Variant
Dim Side As String
Dim Qty As String
Dim Stock As String
Dim Name As String
Dim IOI As String
Dim Pays As String
Dim R As Integer
Dim Rng1 As Range
Dim Ad As String
WsB.Select
Qty = WsB.Range("G27")
Stock = WsB.Range("C24")
Name = WsB.Range("E24")
IOI = WsB.Range("E30").Value
If WsB.Range("V30").Value = "B" Then
Side = "Block Buyer"
Else: Side = "Block Seller"
End If
WsDL.Select
Pays = Cells(1, 2).Value
If Pays = "FRANCE" Then
R = Application.WorksheetFunction.CountA(Range("A:A"))
Set Rng1 = Range(Cells(3, 1), Cells(R, 1))
For Each cel In Rng1
If Not cel.Value Like IOI And cel.Value <> "" Then
Ad = Ad & ";" & cel.Value
Else: Ad = Ad
End If
Next
Else: R = Application.WorksheetFunction.CountA(Range("C:C"))
Set Rng1 = Range(Cells(3, 3), Cells(R, 3))
For Each cel In Rng1
If Not cel.Value Like IOI And cel.Value <> "" Then
Ad = Ad & ";" & cel.Value
Else: Ad = Ad
End If
Next
End If