@the_no_1_risingstar: Ishq me aisa hi hota hai 🤣❤️#the_no_1risingstar #uniq1s #actingskills #shoaibfanclub #duet

Shoaib-Ur-Rahman ⚡️
Shoaib-Ur-Rahman ⚡️
Open In TikTok:
Region: IN
Saturday 27 June 2020 09:05:25 GMT
551
50
23
1

Music

Download

Comments

sana.r.o.c.k
sana_rock :
😂😂😂😂very nice
2020-06-27 11:09:38
2
twinkle1807
twinkle marwah :
Hahahahaha badiya 👌👌
2020-06-27 09:17:46
1
namratasolanki44
❤bad_ girl ❤ :
nice
2020-06-27 10:04:49
1
manjeetabhtia
Manjeeta Bhtia :
fantastic
2020-06-28 07:13:23
1
biishnu.shankkarr
Mr. Perrfectionist 🙏 :
So nice act 👌👌😍😂😂
2020-06-27 18:16:39
1
kulsumniyazi
kittu khan :
superb comedy act.. hero🤣🤣🤣🤣🤣🤣🤣🤣
2020-06-27 11:28:15
1
samaya_virgogirl
Samayalambabhatia03 :
Superb act
2020-06-27 14:16:29
1
sardarnipreetkaur5
❤️cute punjaban❤️ :
😂😂😂😂👌👌
2020-06-27 17:43:55
1
jessicarozario71
jessicarozario71 :
💙💙💙 ĹỖϋẸĹЎ 💙D҉ O҉ S҉ T҉🔫 🔥🔥🔥 🔥🔥🔥 😍💙😍 ƤẸŘƑẸČŤ AcT🎥🎬 💙😍💙 😉😉😉 💙 ѕтay тυned wιтн #jeѕѕιcarozarιobollywood71 #tιĸtoĸlove805 #uae71
2020-06-29 02:21:49
0
tarasha7
Tara :
Hahahaha took good, Nicely done 😁👍👌👌👌👌😁👍
2020-06-27 09:07:22
0
user3960791941059
zoya khan :
bhut hard yrr fantastic
2020-06-28 09:31:13
0
sachin.arora.786.786
sachin..786.786 :
wow so sweet my bro 💯💯💞💞👌🏻👌🏻👌🏻👌🏻🥰🥰❤️❤️🌹🌹😊😊😊🤣🤣🤣🤣
2020-06-28 07:15:43
0
namuu..namuu
Namrata Tanna :
😂😂😂
2020-06-27 23:24:03
0
anshuch6
anshu chaturvedi :
kya baat hai 😂😂😂👌
2020-06-27 18:54:36
0
aaruma18
AaRu :
nice 😂😂😂😂
2020-06-27 18:11:15
0
jeetmallviyaa
🌟Jeet Mallviya🌟 :
Mast👌
2020-06-27 12:53:08
0
123sweetjyoti
agrwal jyoti :
😂😂😂
2020-06-27 11:17:52
0
sherni1995
twinkle🙈 :
Ohoooo good
2020-06-27 11:14:58
0
samir887766
Only Sallu's style :
Tik Tok Pe
2020-06-27 10:57:33
0
samir887766
Only Sallu's style :
Bahot Dino Baad Bhai
2020-06-27 10:57:24
0
nitya_star
rowdy neets rathore :
😂😂
2020-06-27 09:27:25
0
ciajazz
Cia :
🤣🤣🤣👌👌👌👌❤️
2020-06-27 09:21:11
0
teenakunwar1
❤️Teena Kunwar ❤️😘 :
GUD SuPeRrrrrrr DEaR 😅😅😅😅😅😂😂😂😂😂😂😂😂👌🏻👌🏻👌🏻👌🏻👌🏻👌🏻
2020-06-27 09:15:57
0
To see more videos from user @the_no_1_risingstar, please go to the Tikwm homepage.

Other Videos

Sub EnviarAvisosPrueba() Dim wsAct As Worksheet Dim wsCor As Worksheet Dim tblAct As ListObject Dim tblCor As ListObject Dim fila As ListRow Dim filaCorreo As ListRow Dim Lista As Collection Dim Item As Variant Dim Responsable As String Dim Correo As String Dim Asunto As String Dim Mensaje As String Dim TablaHTML As String Dim OutlookApp As Object Dim Mail As Object Set wsAct = ThisWorkbook.Worksheets(" TablaHTML = TablaHTML & "Tarea" TablaHTML = TablaHTML & "Fecha limite" TablaHTML = TablaHTML & "Dias" TablaHTML = TablaHTML & "Estatus" TablaHTML = TablaHTML & "" For Each fila In tblAct.ListRows If fila.Range.Columns(2).Value = Responsable Then If fila.Range.Columns(5).Value = "Vencido" Or _ fila.Range.Columns(5).Value = "En límite" Then TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" & fila.Range.Columns(1).Value & "" TablaHTML = TablaHTML & "" & fila.Range.Columns(3).Value & "" TablaHTML = TablaHTML & "" & fila.Range.Columns(4).Value & "" TablaHTML = TablaHTML & "" & fila.Range.Columns(5).Value & "" TablaHTML = TablaHTML & "" End If End If Next fila TablaHTML = TablaHTML & "" 'Crear correo Outlook Set OutlookApp = CreateObject("Outlook.Application") Set Mail = OutlookApp.CreateItem(0) With Mail .To = Correo .Subject = Asunto .HTMLBody = Mensaje & "

" & TablaHTML .Send End With Next Item End Sub" width="135" height="240">
Sub EnviarAvisosPrueba() Dim wsAct As Worksheet Dim wsCor As Worksheet Dim tblAct As ListObject Dim tblCor As ListObject Dim fila As ListRow Dim filaCorreo As ListRow Dim Lista As Collection Dim Item As Variant Dim Responsable As String Dim Correo As String Dim Asunto As String Dim Mensaje As String Dim TablaHTML As String Dim OutlookApp As Object Dim Mail As Object Set wsAct = ThisWorkbook.Worksheets("Hoja1") Set wsCor = ThisWorkbook.Worksheets("Hoja2") Set tblAct = wsAct.ListObjects("tblActividades") Set tblCor = wsCor.ListObjects("tblCorreos") Set Lista = New Collection 'Obtener responsables únicos On Error Resume Next For Each fila In tblAct.ListRows If fila.Range.Columns(5).Value = "Vencido" Or _ fila.Range.Columns(5).Value = "En límite" Then Lista.Add fila.Range.Columns(2).Value, fila.Range.Columns(2).Value End If Next fila On Error GoTo 0 'Crear correo por responsable For Each Item In Lista Responsable = Item Correo = "" Asunto = "" Mensaje = "" 'Buscar datos del correo For Each filaCorreo In tblCor.ListRows If filaCorreo.Range.Columns(1).Value = Responsable Then Correo = filaCorreo.Range.Columns(2).Value Asunto = filaCorreo.Range.Columns(3).Value Mensaje = filaCorreo.Range.Columns(4).Value Exit For End If Next filaCorreo 'Crear tabla HTML TablaHTML = "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" For Each fila In tblAct.ListRows If fila.Range.Columns(2).Value = Responsable Then If fila.Range.Columns(5).Value = "Vencido" Or _ fila.Range.Columns(5).Value = "En límite" Then TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" TablaHTML = TablaHTML & "" End If End If Next fila TablaHTML = TablaHTML & "
TareaFecha limiteDiasEstatus
" & fila.Range.Columns(1).Value & "" & fila.Range.Columns(3).Value & "" & fila.Range.Columns(4).Value & "" & fila.Range.Columns(5).Value & "
" 'Crear correo Outlook Set OutlookApp = CreateObject("Outlook.Application") Set Mail = OutlookApp.CreateItem(0) With Mail .To = Correo .Subject = Asunto .HTMLBody = Mensaje & "

" & TablaHTML .Send End With Next Item End Sub
🔥 ส่งคลิปนี้ไปเติมไฟเลย! เพราะทุกวันที่ 25 - 5  มี GrabFood Payweek ถูกกว่าชัวร์* ลด 3 ต่อ รับสิ้นเดือน 🔥 📍 ต่อที่ 1 Hot Deals ลดแรงทุกวัน 📍 ต่อที่ 2 เก็บโค้ด 'PAYWEEK' ลดสูงสุด 100 บ.** 📍 ต่อที่ 3 ใช้ 'โค้ดลดแรง' กดที่ปุ่ม 'Offers'  🛵 พร้อมส่งฟรี* Saver สั่งเลยที่ GrabFood 👉 https://grb.to/45wGP85  ตั้งแต่วันที่ 25 ส.ค. - 5 ก.ย. 2569 *ค่าส่งถูกกว่าชัวร์เมื่อเลือกการจัดส่งแบบส่งถูก (Saver) โดยเปรียบเทียบกับค่าส่งสำหรับการจัดส่งแบบปกติบน GrabFood | *ค่าส่ง 0 บาท เมื่อเลือกการจัดส่งแบบส่งถูก (Saver) จากร้านค้าที่ร่วมรายการและมีระยะการจัดส่งไม่เกิน 3 กม. | **ส่วนลดเป็นไปตามข้อกำหนดและเงื่อนไขของรหัสส่วนลด  I เฉพาะร้านค้าและสาขาที่ร่วมรายการ I เงื่อนไขเป็นไปตามที่บริษัทกำหนด #GrabFoodถูกกว่าชัวร์* #HotDealsลดแรงทุกวัน #GrabFoodPayweekถูกกว่าชัวร์ #GrabFoodเปย์2ต่อรับสิ้นเดือน #GrabFoodTH
🔥 ส่งคลิปนี้ไปเติมไฟเลย! เพราะทุกวันที่ 25 - 5 มี GrabFood Payweek ถูกกว่าชัวร์* ลด 3 ต่อ รับสิ้นเดือน 🔥 📍 ต่อที่ 1 Hot Deals ลดแรงทุกวัน 📍 ต่อที่ 2 เก็บโค้ด 'PAYWEEK' ลดสูงสุด 100 บ.** 📍 ต่อที่ 3 ใช้ 'โค้ดลดแรง' กดที่ปุ่ม 'Offers' 🛵 พร้อมส่งฟรี* Saver สั่งเลยที่ GrabFood 👉 https://grb.to/45wGP85 ตั้งแต่วันที่ 25 ส.ค. - 5 ก.ย. 2569 *ค่าส่งถูกกว่าชัวร์เมื่อเลือกการจัดส่งแบบส่งถูก (Saver) โดยเปรียบเทียบกับค่าส่งสำหรับการจัดส่งแบบปกติบน GrabFood | *ค่าส่ง 0 บาท เมื่อเลือกการจัดส่งแบบส่งถูก (Saver) จากร้านค้าที่ร่วมรายการและมีระยะการจัดส่งไม่เกิน 3 กม. | **ส่วนลดเป็นไปตามข้อกำหนดและเงื่อนไขของรหัสส่วนลด I เฉพาะร้านค้าและสาขาที่ร่วมรายการ I เงื่อนไขเป็นไปตามที่บริษัทกำหนด #GrabFoodถูกกว่าชัวร์* #HotDealsลดแรงทุกวัน #GrabFoodPayweekถูกกว่าชัวร์ #GrabFoodเปย์2ต่อรับสิ้นเดือน #GrabFoodTH

About