Hi knock knock anyone is there?
Posts by Rmrekoj
-
-
-
Hi anyone there?
-
Thanks sir for update ,,
-
Hi team,
I am searching a progress to set my project and I required your help to do that...
Code
Display More'code start with dim Do Until fname = "" If fname <> ThisWorkbook.Name Then Set Bbook = Workbooks.Open(FileName:=Path & fname) ' as it will work for 4 excel to get my values by auto filter 'then collect all values into a variable 'count(1) to count(40) Bbook.Close False 'place the count values into activesheet as per my requirement.. fname = Dir() Loop 'again restart this code (4 times)so I can set progress bar here and how will I set
my current macro taking almost 78sec
MsgBox Timer - t
please help
-
is there any requirement ?
-
-
is anyone please help
-
-
-
Hi Sir plz do me a solution
-
Display More
[quote='Rmrekoj','http://www.ozgrid.com/forum/index.php?thread/&postID=1214999#post1214999']Hi Team,
I am working on a query and require your help to get full on.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/www.ozgrid.com\/forum\/core\/image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAD+CAYAAADif9bKAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACRPSURBVHhe7d1vTFz3ne\/xj+9jax9ssUlzhWovYBUHK8lWlXrHwq5drAai7rWsCG9cyalYCkiRFirV5YGtUCrnqtSVCitFwnNZVFu7zoIiy7uRoRXUXht5FKnqTSITqAwUqpGSOOZupSs\/bX3Pn98MM8MM5wwwcw5z3q\/qqJwZQ3vOgfme35\/z++x5ZlEJra2tqaqqyuxFT9SP\/3e\/+5327dtn9qLnyZMn+trXvmb2UKmi\/nfuB7Vg4\/GXvADbH0CBfQAnBnWqf0UdYyM6W2NeK7OyH39yXN3to1o2u+tqAzkPv\/3tb1VdXW32yui\/ptT5Lzf1yOzq0Jv6z1deMjvl8\/jxY3396183exWqwO9cbceYRoL6wyuzQD\/nUgr+7duaNTDdp5jZC0Ig52iTc9I8MK2+Mp6QfMe\/4wX46dOn2rt3r9lzP4AC+QBWUuPd7Vo92KwZNWm6nGc6Q9mP3\/mFW9X53D8252ZEZf8j\/OCDD\/T888+bvTJZ\/md987b0v\/7xH8yxfqZ\/+9e3NPKl8hfhTz\/9VN\/4xjfMXoXK+zuX0KD1C7cSkSIc3OdchkJ\/+yERyDkK0TnJd\/z\/zfz3jrCLr93MzvSXv\/zFfFVmyYTuLjer6dwB1c7MWh8HwQjs+HPFmqx74BUlk2a\/TMp\/\/B\/pp7c\/0Cuvpoqv7cv6+5YzOvToP\/Rv\/2VeKpPQXP+yi6lvoFnLozcC+9srp+heZ\/+ifo7yHf+OFeB8xddW4h7ugpKJu1publKs5qzON8\/o+niZK48R1PFvkJjVTPP5sndBl\/2Pbvl3+pW+oWO1Zj\/lr1sU\/8e39Pd\/bfbLJNIfOgHd9AUhNH\/nIRb1c5Tv+HekABcqvrZgPoASujEqdZxz20CxJutO\/G5CQXwOBHP8M+o\/dUqnMrf+GdUeKH9X4J\/\/\/GfzVRl96XmFpdMzkOMPjRodqF3WagQKcHhutPL87dvbYPD9EMGdozznJIDzke\/4t12ANyu+tkBOut3aqz1htX7Nvn0nvjyqGwH8DgbzS2dPuJjWdOY21iGNvq1ydwSE54MpGFE\/\/qgIz3XO87dvbwHNgckU3DnKc04COB\/5jn9bBdir+NrKf9KTGr8+I1kFtz19x9Nv3QNZ90Gz4bjrCURNjQ6q\/K2RQFqA\/\/fTQHo78ol2Czip1eVaBdDxUnbhKcDhFfVztKMF2E\/xtZW9399MvsrXAqyduV72FmC4xj3K\/2FY9j+62q\/pFX2g+xueO\/hIP\/2n7+un+Z\/RKJlIf+jYPVHWbZ9171fxGAP2xhjwDo0B+y2+tnJ\/ACVujLqTr8x+mjMZa1l3E+WtwGH5AE6OX8\/uli+T8h\/\/S\/ru\/6jRr27\/JGPGs\/0Y0jv61ZfO6Lu5k7NKLLoFOKFBe95Bx7lQPhKz0yJ9o+VT1M9RvuMvugAXU3xt5T3pCc3O1KYnX+VyJmOV+bGIYH7pNk46aB89qIGRs2WfnBREF2zN19\/Sf7763zXyL9\/XN61W7zf\/yTwD\/N2WSBx\/MHJ\/55yHziOzEEd4ikuBSVjWFvQ8LArwxuMv+UpYjx490qFDh8xe9ET9+N9\/\/329+OKLZi96Pv74Y33nO98xe6hUUf8794NasPH4tz0L2gt3PdE+\/mhPQuL4oyLqf+d+UAsCaAHPz8\/r8OHDZi96on78f\/PDb5uvousPP\/+1+QqVKup\/535QCzYe\/54\/\/elPTg3O3exqvROv2\/+jiK4fffC\/zVfR9bNvfN98BQDrSt4Cfu+99\/Taa6+Zvej55JNP9MILL5i96In68e\/Zs0cvXrht9lCpPr7yKtfZg32OSlxuQi3fZ2HJx4ABAMBGFGAAAAJQXAG2sxVPDW7zOdolDR\/d43TNpbeuKfNehVsa1lHreI8OL5kXDOf1LkXkLCDE9nz5kP79Z6366Gd\/q78zr6Xs0fMaLvCeF\/d7j6n3y+aFAtz\/\/eJ\/\/m61fr7Ndr7M2dkZonbuw6CIApzQYPuotruS31RXvXobJzMmai1qaK41OkXYkui9QrFFiD3VH794Tt962eymvPycjn9hvWd2sT17Xv5bffiDvfrnH03qJWt7+Uf39cv9LwVWhJ999kj\/80f\/R\/9hfU0xLg9fBTg53i17ZZuV5mZtbyW\/Kd2KxzR0ocXs2+rUc21IsfitiBSlTg0NzelybisYCI2nujv3VAeq95p913eOPKd7c5+bPWyH3SMw9Lp1Pt91C57tmXXeh\/91SX9srPPsKUBl8NcCrjmvselpjZw7YF7YqnodjiXUeyWn1Nb16MGzq3LKst0de7RLXU43dWV2yx7quaa2iU1awVNd693zWV30bvd917DblZ1+z3Rtb+zOn1JX6nW6uFGEP3xsFdrG59Vg9u2C8a3Gz\/Wbj80LRnYXanYXs93CS3Wtfnj+OfOqa707294i2NKyexNknc8Pzb7htkLva+gzdz\/zHDqbaR3v0V71\/tA6369kvJ\/Rci70fbbcbu9h09Ox3uq1bg5+UKev6Dn9xFzTvzuf\/TNsDa8cC6y1Xil8FeCaWGyH1tC1WrsPJtUZbzVFIbdgGIm4dMnunjZFueJY5+GS1Jq3290qmq1xdU6aLvrJTil+WZkN5viEdM3pvjfn8g2zv2j3JKT+rV2sWyXzcxatVnfr0WHrVcCHzz7VXesD+NupgmoXDKv1+77ZtTmtOOuDevVd04X67lN97wduMV1v4bnvvf7FXqvguOzi0fPDl6TUe3f26ic\/PJQu9pHxxVMtmi\/zyT2HL79r3xRlto736nsnpbec7uuPdK\/xJf37K3s3\/b4N1+wXSzrweu4N0KfqtV7\/o3WD8Ja5GXh\/2m6ZP5f+d\/Y1\/HbjXt17+Kl5BVtR3CSsHdGiq07xyCggGwpxTIfrzZeVquWChuayC6vLPT9XU3ceLadlleAsnZd6rBJus3sUMvbrXlVbLKF5+6966bYmEp06bX5OnVXxOxMTuk0Fhi9P9es56cSLbje00\/2c+2H75b06kNmK+\/Bz3bM+mP\/GLhDOePGSRsx7v\/\/VkvWe8eXndWL\/+vc57+3PKPZwPLMKYY9VJHuyzm+2VBe2\/W9H7jzVV\/b\/1ebfl3NdMsd9N2XfkGXOC8i5htiaAApwJlOMs1putkYdcitMBbPHvts0kdsdb8vsUt7Tqrh5uXhxte7Iz0EU\/T7dDW26n3M\/bJ\/bq69kteL+n1aslu7B56Sv5owfb2R3b7pdoB\/+7KV06zhS9u+1bqE3l9ld7HWefv\/4qfMz7Z6EQt\/nfV3ys8enfz33VMePuF3OX33Rush3HnkXbmyqvAXYGdvMMxaZ2XKLkroeXVKrujIX0LGLb\/2E2hYzegnMW8Xr1GS6t8HeHqin4m9ssGM+e6pVu2X6stXSzddd+vlT\/TGriPyVDu5\/qhWrbjvFYFN296bbDepu6+OekeC0SjfONLe7iO2xcXtc1i6it37wnO7+wnQX293M5t\/l4xRX6zr9fpPv874uhTk9FU43tN39LN39eOs\/C67yFmC72zVmtcpyxiKXht9Qr4aUNTk6IlouDGmut3f92erFeevr9R6Aqa4ttlydm5q4bqXudnjWGEWyuzJ\/M7dX33vd+mWc+1QL5vU0u0BnFhFnYtFT\/cEupHaB2V+nbvPeV1+pW2+95XRnrk\/+iY5Ul\/Hx19cnrqXGxtNdxHYPQ+p8Wr5zfmML+Pi33LFzu3B3nzRjspt9X851cc99oeezzXCC4f4+WNftled1wrqB+nWUbphKpMxd0PYkrGeabOxVfbprdI\/qJ9q0+CA1rhkxViv42lDM7FhSNynm3Fw+PGntb6V3wJ3wZv0g9zw7repKndSGUnn\/odWctT7M87V27A9ke7LOgddNV+fre\/XLX6yPSWa+91PrAzvVCnMet\/n5R1Lq+5zWmo9xyAqz8Kv7ZuJaqqv4mL73xUd66eeP3JudDx\/pl9aNSqqr\/h+s935puvhT7ln77zrf+5IO3Lnvjvtu8n0brpkzIStP74Nzk2TdfFn\/31KzpG3278Pxk9b3\/Mb8f8S2EMZQYoQxEMbAIv2Vr9xhDG5r+ZgO\/iZjslUZuN3i9uIhxd8wEcZAGAMAYIvsyVdfmfucyVc7hAIMANhUalb1uyef6q3rPPu7U8oSyN\/QELlH7AFHY2Oj+QrA3Nyc+Qo2xoBLjDFgxoB\/\/OMfmz1UKvsac503Z5+fEpebUGMMGACAkKAAAwAQAH8F2AniP6VTZhvcXiJ\/ZSp2oQtnVbCjedaCBnaxI23q739TJ6vNPoJTfVJv9rfpiNlF+PgowG4Q\/8GBaU1PW9tAs2b6uzWeNG\/DMqWu+ozVrDwtafhyXJ2djRujGYFdq1onjzVoYeGJmo7zsR+0I8ebVGW+Rjh5F+DErGZqO3QutVhT7Jw6ape1SgF2LA0ftVqyrZrr7FTGelabSyUVXTisWPwWy0OiMlS\/oIaqBS3cW9NaQwMtryAdadOZfdZ1MLsIJ+8CHOvT9MjZjDzgpFaXzZeQDl3S4rNnemAVU7+Wbk8o0XlaLXYYQ2dcl+mHRgWofqFBVQsLevj4ju4vNOgY\/dABsXsipJvvsVhk2BU9CSs5fj27RRxxdS0tRa5hPaUrvdKQSZ5oOd2pxMRtgvKxyx3R8SZp9t5DZ++hVYirGl6wSgHKrfrka2pYuCf3SiDMiirAyfFutY8e1EBWixhFmbqleKxNr6aqth24n+gVQ8HY1Y40qGFtQZ88NvsPF7RQ1SSGgsvNuhFqWNB7d1IXAmHmuwC7xVfqGOvzP9aJHO7kK1kFdz0Nyo0bjKdzA4Hdxp18Javgdvf3q9\/ZzjgxeQ0NVOByOtJ2Rrp\/R5Tf3cFXAU63fKdHdJam79aZyVfZIfnWtjikWPwyjyRhdzKTr24ODGggcxuZ1VrDMR5JKpsj1g2PddNzxtwEdduzoBt0xvq6jfugUPIuwMlxvU3Ld0dMXel1J1+Z\/TRnMlZCE7epwNh9nMdd7MlXZj\/NmYxllYAXqMDl8VATuTdAcm+MJhgQDiXPApy4Mapl6z+j7esLcbAYx1ZM6VY8lp58lcuZjNV7hUeSsMvYra619OSrXM5krKbjPJIE5EEYQ4kRxkAYA4v0Vz7CGLwRxkAYAwAAoUABBgAgAATyAyVEID+wjkD+bIwBlxhjwIwBMzZY+RgD9sYYMGPAAACEAgUYAIAA+CvAicGMZ4DJAs7iBPGnlpXcoy4e5EXUOMHvqSUoMzeC+YNRrZNvrl+HN7kIoeVdgJPj6u5fUcdYKpD\/oEbbB4sIn69kbhB\/46SZdDbZqXjrUZaURATlWYry5hM1dbexCEeZHWnrVpNmNWJfg5FZqek1boRCyrsA15zVSOYa0LEmNWtFSVrBJtloSOnFrVouaCiW0Pyi2QeizE5E0j7t48O\/jMzKZO+ZQIbHd\/TOwDsiHCmcih4DdvOATyhGKINVcK\/q2YOejDzgRc17dQ1MdaW7q52NPmtUKjuicOE+H\/7lVG3d8OiJnnDOdwX\/Bdjuij51yo0kvEgecD5Lw5ezW8QbTKmrNa7OjC5rkYKEiuCm7mSNAZ9p0NraF+Z9lMX+KlWtrUkn30xfB5KQwst\/AXa6ohkDLmRp+Kjqexs1mdUiztWiq1bhvZrusj4tqwQDFSB\/HCHjjwGoatIxvWfG4RfUcIbJcGFVdBc0Y8AbucVXGlq8ujFqMFfWrGk3jB+oSI+f6ImsFtl+s4\/yWJvVe6l+\/4f3NLvGNQir4gswsqRbvs8eqKdw09dlF9\/6CbUtmi7oZ5O0gFHh1kQvdBl9YZ3vqipRb3cH7wLsPAOc0eVsNX1XmITlsgrqG35bvrbFees8NuqQKdRTXbSAUbmqTx5Tw9qCPmFCUPk8vqP7Cw06lupzPnJcTVULWiCQP5S8C3CsT2MdK+pPLcTRvqrzI0zCsk1d6bUKakK99Rmzmq2t4MRm5zGluFrNv7t8eJLHllAhNk7C6m56opvvmMdhUDYPJ0a00NDtXoczDVq4OSHqbzgRxlBihDEQxsAi\/ZWPMAZvhDEQxgAAQChQgAEACACB\/EAJEcgPrCOQPxtjwCXGGDBjwIwNVj7GgL0xBswYMAAAoUABBgAgAMUVYCeQgXWgs2SlG3lkAeeE92duhCJh18sN5icFICAE8u8WRRXgxI1RLZuvYbELauuchlJLS042qre+S5vX0k5NmglqmVs6oAHYjY60qb+7SvfTYQwjmt13hiIcAAL5dw\/\/BTgxqP6VWtWaXVjqevQgcw1oJ91oTo+IF0SkHFHbhhWXHuvOe7NaazjGh39ZEci\/m\/gswEmNX5cGLp4w+8jHzQNu06teoQxAJbGD95VnvWE+\/MuPQP5dxVcBTo6\/rbsnzilm9pHDjO06kYTXNssDtq2vBZ3eGADGbre2JkKPQoBA\/l3FRwFO6MbdE7p4lviFgpyu6G2MATMADGCnEMi\/a3gW4MRgv3Se9CNfGANGVJFBGx4E8u8aHgU4odkZaaY\/FUVoz4KecaIJB3kWCYDt4YKsdpYaNnR1HlEbXaDlRSD\/ruJRgGPqm57WdGob61CtmjVgfd3HgLB5Bjijy3npkeaYhIXIeah7s2s5XZ32s6hn1GC1xu4RRls+BPLvKr4mYaGAlqtaHJpbn1RVP69LD7wmYQGV5\/GddzRw84maulMLQHSr6clNDRDIX3YE8u8ehDGUGGEMhDGwSH\/lI4zBG2EMhDEAABAKFGAAAAJAID9QQgTyA+sI5M\/GGHCJMQbMGDBjg5WPMWBvjAEzBgwAQChQgAEACIC\/AuwE8ZvVsOyte1xJ8xYMJ5DBax3oJQ0fJXwfFSY3iN9sBMEHwM5l5lrsGj4L8KqWmwfWV8QaYW3oXFNXesXqnIiuBd1Mh\/Hb2009aermg7\/cHk5kXANru7lgvbig+2RChpKvApyYnVHtAUpuQVNdap2LEdcIpD3UhPXhX9V0XCwFHZQjamMlrFDzUYCTSq7U6kSMApzfkoYvS5PX2sy+D7fsNaTd5SuPDhOdhArlhDTs0z4awYGoPnmMtbhDzlcBXl2W7r6dGgPu1jgDwGlLw29oou2Cikn0jc8d1qLznPSkGnvrGRNGhfpCa0ThBaRaLzRUaeE+a3GHmXcBTia1Yv3XiYupVKTzWm0fZLzTMaUrE2261lNc\/ELnpVRgQ4tOd1oF+RYVGMAOqn5BDaQghZ53Aa45q5HpEZ3N6oFesety5E11tUrpYro19YcZOUal2q+qqjWtfWF2UTbVLzSoamGBsd+Q8zUJC\/lM6Vbcar22pqII7VnQcSeasJgu5cX5hGKH680eUEGONKhBT\/SEPtCy219VpTXufELPuwAnBnXqVEaXs90lXXtCzMlq0VWz3rWzLQ4ppk5NWl9f9RgQjl8eljP1amlYl60i3niIBGFUGncG7trsPVphZVetffukJ9z5hJ53AY71aaxjRf2pRTjaV3We54C3pbNxXvWm1ayhRc+CDYRfg85kLf5wRro5oHd4\/jQAdP3vFoQxlBhhDIQxsEh\/5SOMwRthDIQxAAAQChRgAAACQCA\/UEIE8gPrCOTPxhhwiTEGzBgwY4OVjzFgb4wBMwYMAEAoUIABAAiAzwKc1Hh3KozhlLpJY1jnBPGb1bDs7ahZZCMvAvlRgQoE8rtbG3GE5ZZ1Pd4Ukczh5asAJwbbNaoOjdlhDGMd0ujbJCKlLM4r0Tm5PvHswfbWhgZ2p9xA\/tRGFm15HVFbd5Oe3HTP\/8is1NTNTVBY+SjACc3O1Krjoln9Km84Q3RN3YqzljOAcKjep33WzVAqBenxnftkMoeYdwF24ggPqoaCm8eSHs3F1PZqkW1eAvkBlMLjT7Sw1qCGVJPXDsRYW9AnrAgaSj4K8KqWaw9I493pMeBBwoCNRc1b52LijdQY8FH5qacE8qPy5K4FbbY2Oj\/L67HuvDOitWPm\/B9b08g7hPKHlb9JWMujuq6LbiD\/QLNm+rsZA7YtPZL9WHnbtdTCI5c0X98lr3pKID8qT4Ex4AlGgMvriNqsz+eGhRF3DHihQd1MhAstfwW4tkMXU4O+sXPqqF3WKgVYquvRg2cP1JPVAz2nR0X0KhPID2DHmDHg+yaFijHgcPMuwDUHVLu8KuptaRDIDwDR5KMAn9X55hldT\/U5J25odLlZTTTcpCl7MlVGl7PdJR1rk9ecLAL5AZSEmYR1zDz8W33ymBr0RGTzh5OvLuhY35hO3G13J2H1z6h5oE\/UX0vLVS0Ozak1tQhH\/bwu+XgOmEB+VJ4Ck7CsjXlY5fRYd95zHv51zn13kzQ7wrPYYUUYQ4kRxkAYA4v0Vz7CGLwRxkAYAwAAoUABBgAgAATyAyVEID+wjkD+bIwBlxhjwIwBMzZY+RgD9sYYMGPAAACEAgUYAIAAeBfgxGA6hCFzI5Q\/xQ3Zd8MYvNKNCORHhdoklJ\/ngMvEuQY56z7nXBeuRbh4F+BYnxvCkNoGmq0Xm3WeQGDHVFe9ejXkphstDkm9b\/hKRAIqT\/5ABvIYysEN4q8ye67scP6BmwtqOPOmzCJZCIEiu6ATGmQlrAxTuhWPaeiaWf0qbzgDAJRO9ck3rdbtGe1bWNCaec3hZAHP6l7qBujhPc2uValqv9lH4IoqwMnx65qp7dA5qq\/LiSNsVNFLORPID2CnPLmvEauF+869rPJrFdwJDWRlAe9XVXYTGQErogAnlbi7rObzZ0Xns7E4r0TssDR8NF1Q\/YzvEsiPypRnPWgGHUvu8cOHvgL3nWCGzBYxAue\/ACcTuksK0kaJXl3WNXfhkclOxVuPeo4BE8iPypRnDJgB4FCwu6m7m57oZlaLGEHzXYCTibtabm5i7DdXbEjXUoO+LRc0FEtoftHd9YNAfgCl5BZfUpHCyH8BXl1W7QE6n7PUH1YsMa8i6u0GBPIDKJV0y3fgHd2h6Rs6PgtwUskV6WANBThLXY8udcZ1OdXnPHVFvYlOnfbI9yWQH0DJVZ\/Ua7R8Q813AV5drhUN4I1ari6qbaLenYTVGlfn5FV55esTyA+g1I4ct58LrlJTd\/bEOObFhQdhDCVGGANhDCzSX\/kIY\/BGGANhDAAAhAIFGACAABDID5QQgfzAOgL5szEGXGKMATMGzNhg5WMM2BtjwIwBAwAQChRgAAAC4K8AJ8fVnQ7j7xZZ\/MbUeqpR5kbCESIlXxC8rdDrKA0C+XcdHwU4ocH2UR0ccAP5xzqk0fZB61Wo5Wr2pLPJTuvFTl0iEBhAWRHIvxt5F+BkUitaT0GqOXve2luxX0aWKXX5XAkLAHYKgfy7l3cBronpRO2MZlNN3sSsZmpPKMaylFmWhi8rHhvSBa\/quzSsoxnd1WQBA9gWAvl3LR9d0DU6OzKmA9fNGPD1AxobIZQ\/25JuTyQycn4LsVrJ9b1qnDRd1otDmmvtsl4Fdrs8YfwbukRRCgTy717+xoBPtevuiTF3DPjEXbWfYgw4y9JtTfhIQdLUrexWcl2PHjyjyxqVIE8Y\/8hsdpcoAkMgfzj5HgM+f9Zt8zIGvNHS7QklOk97FtKlR6wCA6C8COQPLx8tYHjxG6pfd4hlCQGUD4H84eZ7EtZ18\/Bvcvy6ZnRQZPOnLMlu2PoK1W85rc5Er66kBn2dCVlHxWPDAHYcgfyh528S1kXn4V9nElb7qNQx1ifzVBK0qPlETD4awJYWXXUmXplZ0M6ErAfisWEAO41A\/vAjjKHECGMgjIFF+isfYQzeCGMgjAEAgFCgAAMAEAAC+YESIpAfWEcgfzbGgEuMMWCOP8rHHxVcZ298Fmw8frqgAQAIAAUYAIAA+CvAmYH83eNiFcoMWelGxS6qMaUuFuIAgEjyUYDdQH51ZIQxDBLF4MpON1ocknrrSTcCAHjzLsD5whhmrsusTBltS480p\/UUpLqeS9benB7RogUAeGAMeDvqXlVbLK5bqSavEzfYplc3W1pyqst0V1tb1y3zIgAgarwLcE2NDmpGs6bX2Q1jWNYqLWBLnXoeLOrwZVNQLx\/W4oPNQvmn1NUaV2eqy\/rwnOLmHQBAtPhoAcfUN9ahlX53EtbbOq+OWvNW5NmTqOo10bboFtS2CdXv2WQMOCeQ3+2yBgBEkb8u6JqzGpmediZhjZyVVpdrdYA4wvQY8CUTZ+Q1BkwgPwAgpfgxYGdSFnnAW0EgPwAgxUcBTmjwVHd61nPixqiWm5vIA7aZSViXzYO8S8OXFVejCmbz5wTyu\/8eABBF\/saABw5qtN0dA+5f6dBYH+XXVaeea87Dv84krPpeaWjxqswQbx7ZgfxvqI0xYACIKMIYSowFyDl+FumvfFxnb3wWbDz+4seAAQDAtlGAAQAIAIH8AAAEgDHgEmPcg+NnbLDycZ298Vmw8fjpggYAIAAUYAAAAuBdgJ0w\/kFlJwAnNd5tAvo3vBcxmYH8R4dFEiEAwA+PAuyG8S+bvZTEYLtGDw44a0MPNM+oP7IB\/W4gv4Yywhi6iOMHAHgrWICT491W67ZfK83Nyg4\/Smh2plYd59zVsGLnOlQ7MxvNVnC+MIb4ZZmVKQEAKKhwC7jmvMbs9KNzB8wLRm4Yg5MXvGK\/DF\/sCEPTZb1ZdCEAoKIVLMA1sZgIPPJQd0iNiutWVrhCQvOL7v5GSxo+2iqlAvmH5tTKuDEARJL3JCxsIjdc4ZKGNsupWLqtiUSnTmcG8icmdJsKDACRQwHerroePTCrfj3okeYTMR2uN+\/lFVdrugu6lThCAIio4gtw7pgvAf3rnElZm+QBOzo1aQq2uz2QmcMFAIiQLbSAY2pqXtboDXfec7QD+u0JVUfTs56nrvQq0Xm6cB6wCfBPjRm7zxAzEQsAomhLXdCxvgE1z\/S7Af0zzRqIbEB\/i65ONqq33u1Sbp0b0uLVwnH8VgVWz4NJyYwZ76mfUNumAf4AgEpFGEOJsQA5x88i\/ZWP6+yNz4KNx88kLAAAAkABBgAgAATyAwAQAMaAS4xxD46fscHKx3X2xmfBxuOnCxoAgABQgAEACIB3Ac4byG9s9l4lyrtwhh2wkFpakkU1AAD+eBTg\/IH8rs3eq0Ru+H7uzcZUV716GyedCWeTnXG1EsgPAPChYAEuHMi\/+XuVaGn4qBOcMNfZmbPk5pRuxWMauuCuZdVyYUix+C1awQAAT4VbwIUC+W2bvVeJDl3SotXCfXDhsHnByA1fcPKB5\/SoYLyg213dNWx3ZZtua7vF7HRtZ+wDACpewQK8WSB\/1ML661patJOBRfEJ6ZrznPSkOuOt2vOG2V+0W9CX0+EOAIDK5T0JCzuu81KPKej1OhzL2HfSkhKaX3TeBABUMAowAAABoABvR+6Yr69AfgAAKMDb1KLTnQn1XnEnTnkG8gMAYFCAt6nlqplItWePWuOdmtw0kB8AABdhDCXGAuQcP4v0Vz6uszc+CzYePy1gAAACQAEGACAABPIDABAAxoBLjHEPjp+xwcrHdfbGZ8HG46cLGgCAAFCAAQAIgHcBzhe677x2SqfMNhiZRH4AAHaGRwHOF7rvvnZwYFrT09Y20KyZ\/m6NJ83bAADAU8ECXDB0PzGrmdoOnUsl08fOqaN2WasUYAAAfCvcAi4Uuh\/r0\/TI2Yw84KRWs5vIAADAQ8EC7Dd0Pzl+PbtFDAAAPHlPwtqE3U3dPnpQA1ktYgAA4GXLBdgtvlLHWJ9o\/AIAUJwtFeB0y3d6RGdp+gIAULTiC3ByXG\/T8gUAYFuKLsCJG\/ZzwcsabV9fiIPFOAAAKI53Aa45q5Hp9dZurM8swJGz9dEcBgDAty1PwgIAAFtHAQYAIAAE8gMAEAAC+UuMEGqOn6D2ysd19sZnwcbjpwsaAIAAUIABAAiAdwHOF8ifGMx4BpgsYAAAiuVRgPME8tsFuX9FHWPmGeCBgxptzynQAABgUwULcMFAfmdhjow1oGNNataKkrSCAQDwrXALuFAgfw43D\/iEYoQyAADgW8EC7BnI74wNn3IjCS+SBwwAQDG8J2EV4nRFMwYMAMBWbL0ApzAGDABA0bZfgAEAQNGKL8DOM8AZXc5W03eFSVgAABSl+AIc69NYx4r6UwtxtK\/q\/AiTsAAAKIZ3Ac4J5LfVnB3JCOPPfg8AAHhjDBgAgABQgAEACACB\/AAABIBA\/hIjhJrjJ6i98nGdvfFZsPH46YIGACAAFGAAAALgXYDzBfKnbPYeAAAoyKMA5wnkz5C4Ufg9AABQWMECXDCQPyUxqP6V2vzvAQCATRVuAW8ayJ\/U+HVp4OIJsw8AAIpRsABvFsifHH9bd0+cYwlKAAC2yHsS1gYJ3bh7QhfPEr8AAMBWFV2AE4P90nnSjwAA2I4iC3BCszPSTH8qitCeBT3jRBMO8iwSAAC+FVmAY+pLxxBa21iHatWsAevrPgaEAQDwbQtjwAAAYLu8C3CeQP60zd4DAAAF0QIGACAAFGAAAAJAID8AAAEgkL\/ECKHm+Alqr3xcZ298FuQev\/T\/AROmQo6ZCs\/iAAAAAElFTkSuQmCC"}[/IMG2]
above is the data which name "m" is missing in Model data base which need to be added by inputbox and restart the macro to get actual result.
Code
Display MoreOption Compare Text Sub iui() Dim x 'find last row LastRow = Range("A1").CurrentRegion.Rows.Count lastrow1 = Range("F1").CurrentRegion.Rows.Count ' get database into array " I have learnt by [URL="https://www.ozgrid.com/forum/member/275839-graha_karya"][B][U][COLOR=#0066CC]graha_karya[/COLOR][/U][/B][/URL] ... sir" With ActiveSheet x = Range("D2:E" & lastrow1) End With For Each c In Range("B2:B" & LastRow) If c.Value Like x(1, 1) Then i1 = x(1, 2) + i1 ElseIf c.Value Like x(2, 1) Or c.Value Like x(3, 1) Then i2 = x(2, 2) + i2 ElseIf c.Value Like x(4, 1) Then i3 = x(4, 2) + i3 ElseIf c.Value Like x(5, 1) Then i4 = x(5, 2) + i4 ElseIf c.Value Like x(6, 1) Or c.Value Like x(7, 1) Then i5 = x(6, 2) + i5 Else i6 = InputBox("Capacity of" & c.Value, c.Value, 1) Range("M" & lastrow1 + 1) = c.Value Range("N" & lastrow1 + 1) = i6 End If Next MsgBox i1 + i2 + i3 + i4 + i5 End SubHi respected Sir, please help
-
Sorry for the I dnt know how to delete instead of edit this
-
[quote='Rmrekoj','http://www.ozgrid.com/forum/index.php?thread/&postID=1214999#post1214999']Hi Team,
I am working on a query and require your help to get full on.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/www.ozgrid.com\/forum\/core\/image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAAeAAAAD+CAYAAADif9bKAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACRPSURBVHhe7d1vTFz3ne\/xj+9jax9ssUlzhWovYBUHK8lWlXrHwq5drAai7rWsCG9cyalYCkiRFirV5YGtUCrnqtSVCitFwnNZVFu7zoIiy7uRoRXUXht5FKnqTSITqAwUqpGSOOZupSs\/bX3Pn98MM8MM5wwwcw5z3q\/qqJwZQ3vOgfme35\/z++x5ZlEJra2tqaqqyuxFT9SP\/3e\/+5327dtn9qLnyZMn+trXvmb2UKmi\/nfuB7Vg4\/GXvADbH0CBfQAnBnWqf0UdYyM6W2NeK7OyH39yXN3to1o2u+tqAzkPv\/3tb1VdXW32yui\/ptT5Lzf1yOzq0Jv6z1deMjvl8\/jxY3396183exWqwO9cbceYRoL6wyuzQD\/nUgr+7duaNTDdp5jZC0Ig52iTc9I8MK2+Mp6QfMe\/4wX46dOn2rt3r9lzP4AC+QBWUuPd7Vo92KwZNWm6nGc6Q9mP3\/mFW9X53D8252ZEZf8j\/OCDD\/T888+bvTJZ\/md987b0v\/7xH8yxfqZ\/+9e3NPKl8hfhTz\/9VN\/4xjfMXoXK+zuX0KD1C7cSkSIc3OdchkJ\/+yERyDkK0TnJd\/z\/zfz3jrCLr93MzvSXv\/zFfFVmyYTuLjer6dwB1c7MWh8HwQjs+HPFmqx74BUlk2a\/TMp\/\/B\/pp7c\/0Cuvpoqv7cv6+5YzOvToP\/Rv\/2VeKpPQXP+yi6lvoFnLozcC+9srp+heZ\/+ifo7yHf+OFeB8xddW4h7ugpKJu1publKs5qzON8\/o+niZK48R1PFvkJjVTPP5sndBl\/2Pbvl3+pW+oWO1Zj\/lr1sU\/8e39Pd\/bfbLJNIfOgHd9AUhNH\/nIRb1c5Tv+HekABcqvrZgPoASujEqdZxz20CxJutO\/G5CQXwOBHP8M+o\/dUqnMrf+GdUeKH9X4J\/\/\/GfzVRl96XmFpdMzkOMPjRodqF3WagQKcHhutPL87dvbYPD9EMGdozznJIDzke\/4t12ANyu+tkBOut3aqz1htX7Nvn0nvjyqGwH8DgbzS2dPuJjWdOY21iGNvq1ydwSE54MpGFE\/\/qgIz3XO87dvbwHNgckU3DnKc04COB\/5jn9bBdir+NrKf9KTGr8+I1kFtz19x9Nv3QNZ90Gz4bjrCURNjQ6q\/K2RQFqA\/\/fTQHo78ol2Czip1eVaBdDxUnbhKcDhFfVztKMF2E\/xtZW9399MvsrXAqyduV72FmC4xj3K\/2FY9j+62q\/pFX2g+xueO\/hIP\/2n7+un+Z\/RKJlIf+jYPVHWbZ9171fxGAP2xhjwDo0B+y2+tnJ\/ACVujLqTr8x+mjMZa1l3E+WtwGH5AE6OX8\/uli+T8h\/\/S\/ru\/6jRr27\/JGPGs\/0Y0jv61ZfO6Lu5k7NKLLoFOKFBe95Bx7lQPhKz0yJ9o+VT1M9RvuMvugAXU3xt5T3pCc3O1KYnX+VyJmOV+bGIYH7pNk46aB89qIGRs2WfnBREF2zN19\/Sf7763zXyL9\/XN61W7zf\/yTwD\/N2WSBx\/MHJ\/55yHziOzEEd4ikuBSVjWFvQ8LArwxuMv+UpYjx490qFDh8xe9ET9+N9\/\/329+OKLZi96Pv74Y33nO98xe6hUUf8794NasPH4tz0L2gt3PdE+\/mhPQuL4oyLqf+d+UAsCaAHPz8\/r8OHDZi96on78f\/PDb5uvousPP\/+1+QqVKup\/535QCzYe\/54\/\/elPTg3O3exqvROv2\/+jiK4fffC\/zVfR9bNvfN98BQDrSt4Cfu+99\/Taa6+Zvej55JNP9MILL5i96In68e\/Zs0cvXrht9lCpPr7yKtfZg32OSlxuQi3fZ2HJx4ABAMBGFGAAAAJQXAG2sxVPDW7zOdolDR\/d43TNpbeuKfNehVsa1lHreI8OL5kXDOf1LkXkLCDE9nz5kP79Z6366Gd\/q78zr6Xs0fMaLvCeF\/d7j6n3y+aFAtz\/\/eJ\/\/m61fr7Ndr7M2dkZonbuw6CIApzQYPuotruS31RXvXobJzMmai1qaK41OkXYkui9QrFFiD3VH794Tt962eymvPycjn9hvWd2sT17Xv5bffiDvfrnH03qJWt7+Uf39cv9LwVWhJ999kj\/80f\/R\/9hfU0xLg9fBTg53i17ZZuV5mZtbyW\/Kd2KxzR0ocXs2+rUc21IsfitiBSlTg0NzelybisYCI2nujv3VAeq95p913eOPKd7c5+bPWyH3SMw9Lp1Pt91C57tmXXeh\/91SX9srPPsKUBl8NcCrjmvselpjZw7YF7YqnodjiXUeyWn1Nb16MGzq3LKst0de7RLXU43dWV2yx7quaa2iU1awVNd693zWV30bvd917DblZ1+z3Rtb+zOn1JX6nW6uFGEP3xsFdrG59Vg9u2C8a3Gz\/Wbj80LRnYXanYXs93CS3Wtfnj+OfOqa707294i2NKyexNknc8Pzb7htkLva+gzdz\/zHDqbaR3v0V71\/tA6369kvJ\/Rci70fbbcbu9h09Ox3uq1bg5+UKev6Dn9xFzTvzuf\/TNsDa8cC6y1Xil8FeCaWGyH1tC1WrsPJtUZbzVFIbdgGIm4dMnunjZFueJY5+GS1Jq3290qmq1xdU6aLvrJTil+WZkN5viEdM3pvjfn8g2zv2j3JKT+rV2sWyXzcxatVnfr0WHrVcCHzz7VXesD+NupgmoXDKv1+77ZtTmtOOuDevVd04X67lN97wduMV1v4bnvvf7FXqvguOzi0fPDl6TUe3f26ic\/PJQu9pHxxVMtmi\/zyT2HL79r3xRlto736nsnpbec7uuPdK\/xJf37K3s3\/b4N1+wXSzrweu4N0KfqtV7\/o3WD8Ja5GXh\/2m6ZP5f+d\/Y1\/HbjXt17+Kl5BVtR3CSsHdGiq07xyCggGwpxTIfrzZeVquWChuayC6vLPT9XU3ceLadlleAsnZd6rBJus3sUMvbrXlVbLKF5+6966bYmEp06bX5OnVXxOxMTuk0Fhi9P9es56cSLbje00\/2c+2H75b06kNmK+\/Bz3bM+mP\/GLhDOePGSRsx7v\/\/VkvWe8eXndWL\/+vc57+3PKPZwPLMKYY9VJHuyzm+2VBe2\/W9H7jzVV\/b\/1ebfl3NdMsd9N2XfkGXOC8i5htiaAApwJlOMs1putkYdcitMBbPHvts0kdsdb8vsUt7Tqrh5uXhxte7Iz0EU\/T7dDW26n3M\/bJ\/bq69kteL+n1aslu7B56Sv5owfb2R3b7pdoB\/+7KV06zhS9u+1bqE3l9ld7HWefv\/4qfMz7Z6EQt\/nfV3ys8enfz33VMePuF3OX33Rush3HnkXbmyqvAXYGdvMMxaZ2XKLkroeXVKrujIX0LGLb\/2E2hYzegnMW8Xr1GS6t8HeHqin4m9ssGM+e6pVu2X6stXSzddd+vlT\/TGriPyVDu5\/qhWrbjvFYFN296bbDepu6+OekeC0SjfONLe7iO2xcXtc1i6it37wnO7+wnQX293M5t\/l4xRX6zr9fpPv874uhTk9FU43tN39LN39eOs\/C67yFmC72zVmtcpyxiKXht9Qr4aUNTk6IlouDGmut3f92erFeevr9R6Aqa4ttlydm5q4bqXudnjWGEWyuzJ\/M7dX33vd+mWc+1QL5vU0u0BnFhFnYtFT\/cEupHaB2V+nbvPeV1+pW2+95XRnrk\/+iY5Ul\/Hx19cnrqXGxtNdxHYPQ+p8Wr5zfmML+Pi33LFzu3B3nzRjspt9X851cc99oeezzXCC4f4+WNftled1wrqB+nWUbphKpMxd0PYkrGeabOxVfbprdI\/qJ9q0+CA1rhkxViv42lDM7FhSNynm3Fw+PGntb6V3wJ3wZv0g9zw7repKndSGUnn\/odWctT7M87V27A9ke7LOgddNV+fre\/XLX6yPSWa+91PrAzvVCnMet\/n5R1Lq+5zWmo9xyAqz8Kv7ZuJaqqv4mL73xUd66eeP3JudDx\/pl9aNSqqr\/h+s935puvhT7ln77zrf+5IO3Lnvjvtu8n0brpkzIStP74Nzk2TdfFn\/31KzpG3278Pxk9b3\/Mb8f8S2EMZQYoQxEMbAIv2Vr9xhDG5r+ZgO\/iZjslUZuN3i9uIhxd8wEcZAGAMAYIvsyVdfmfucyVc7hAIMANhUalb1uyef6q3rPPu7U8oSyN\/QELlH7AFHY2Oj+QrA3Nyc+Qo2xoBLjDFgxoB\/\/OMfmz1UKvsac503Z5+fEpebUGMMGACAkKAAAwAQAH8F2AniP6VTZhvcXiJ\/ZSp2oQtnVbCjedaCBnaxI23q739TJ6vNPoJTfVJv9rfpiNlF+PgowG4Q\/8GBaU1PW9tAs2b6uzWeNG\/DMqWu+ozVrDwtafhyXJ2djRujGYFdq1onjzVoYeGJmo7zsR+0I8ebVGW+Rjh5F+DErGZqO3QutVhT7Jw6ape1SgF2LA0ftVqyrZrr7FTGelabSyUVXTisWPwWy0OiMlS\/oIaqBS3cW9NaQwMtryAdadOZfdZ1MLsIJ+8CHOvT9MjZjDzgpFaXzZeQDl3S4rNnemAVU7+Wbk8o0XlaLXYYQ2dcl+mHRgWofqFBVQsLevj4ju4vNOgY\/dABsXsipJvvsVhk2BU9CSs5fj27RRxxdS0tRa5hPaUrvdKQSZ5oOd2pxMRtgvKxyx3R8SZp9t5DZ++hVYirGl6wSgHKrfrka2pYuCf3SiDMiirAyfFutY8e1EBWixhFmbqleKxNr6aqth24n+gVQ8HY1Y40qGFtQZ88NvsPF7RQ1SSGgsvNuhFqWNB7d1IXAmHmuwC7xVfqGOvzP9aJHO7kK1kFdz0Nyo0bjKdzA4Hdxp18Javgdvf3q9\/ZzjgxeQ0NVOByOtJ2Rrp\/R5Tf3cFXAU63fKdHdJam79aZyVfZIfnWtjikWPwyjyRhdzKTr24ODGggcxuZ1VrDMR5JKpsj1g2PddNzxtwEdduzoBt0xvq6jfugUPIuwMlxvU3Ld0dMXel1J1+Z\/TRnMlZCE7epwNh9nMdd7MlXZj\/NmYxllYAXqMDl8VATuTdAcm+MJhgQDiXPApy4Mapl6z+j7esLcbAYx1ZM6VY8lp58lcuZjNV7hUeSsMvYra619OSrXM5krKbjPJIE5EEYQ4kRxkAYA4v0Vz7CGLwRxkAYAwAAoUABBgAgAATyAyVEID+wjkD+bIwBlxhjwIwBMzZY+RgD9sYYMGPAAACEAgUYAIAA+CvAicGMZ4DJAs7iBPGnlpXcoy4e5EXUOMHvqSUoMzeC+YNRrZNvrl+HN7kIoeVdgJPj6u5fUcdYKpD\/oEbbB4sIn69kbhB\/46SZdDbZqXjrUZaURATlWYry5hM1dbexCEeZHWnrVpNmNWJfg5FZqek1boRCyrsA15zVSOYa0LEmNWtFSVrBJtloSOnFrVouaCiW0Pyi2QeizE5E0j7t48O\/jMzKZO+ZQIbHd\/TOwDsiHCmcih4DdvOATyhGKINVcK\/q2YOejDzgRc17dQ1MdaW7q52NPmtUKjuicOE+H\/7lVG3d8OiJnnDOdwX\/Bdjuij51yo0kvEgecD5Lw5ezW8QbTKmrNa7OjC5rkYKEiuCm7mSNAZ9p0NraF+Z9lMX+KlWtrUkn30xfB5KQwst\/AXa6ohkDLmRp+Kjqexs1mdUiztWiq1bhvZrusj4tqwQDFSB\/HCHjjwGoatIxvWfG4RfUcIbJcGFVdBc0Y8AbucVXGlq8ujFqMFfWrGk3jB+oSI+f6ImsFtl+s4\/yWJvVe6l+\/4f3NLvGNQir4gswsqRbvs8eqKdw09dlF9\/6CbUtmi7oZ5O0gFHh1kQvdBl9YZ3vqipRb3cH7wLsPAOc0eVsNX1XmITlsgrqG35bvrbFees8NuqQKdRTXbSAUbmqTx5Tw9qCPmFCUPk8vqP7Cw06lupzPnJcTVULWiCQP5S8C3CsT2MdK+pPLcTRvqrzI0zCsk1d6bUKakK99Rmzmq2t4MRm5zGluFrNv7t8eJLHllAhNk7C6m56opvvmMdhUDYPJ0a00NDtXoczDVq4OSHqbzgRxlBihDEQxsAi\/ZWPMAZvhDEQxgAAQChQgAEACACB\/EAJEcgPrCOQPxtjwCXGGDBjwIwNVj7GgL0xBswYMAAAoUABBgAgAMUVYCeQgXWgs2SlG3lkAeeE92duhCJh18sN5icFICAE8u8WRRXgxI1RLZuvYbELauuchlJLS042qre+S5vX0k5NmglqmVs6oAHYjY60qb+7SvfTYQwjmt13hiIcAAL5dw\/\/BTgxqP6VWtWaXVjqevQgcw1oJ91oTo+IF0SkHFHbhhWXHuvOe7NaazjGh39ZEci\/m\/gswEmNX5cGLp4w+8jHzQNu06teoQxAJbGD95VnvWE+\/MuPQP5dxVcBTo6\/rbsnzilm9pHDjO06kYTXNssDtq2vBZ3eGADGbre2JkKPQoBA\/l3FRwFO6MbdE7p4lviFgpyu6G2MATMADGCnEMi\/a3gW4MRgv3Se9CNfGANGVJFBGx4E8u8aHgU4odkZaaY\/FUVoz4KecaIJB3kWCYDt4YKsdpYaNnR1HlEbXaDlRSD\/ruJRgGPqm57WdGob61CtmjVgfd3HgLB5Bjijy3npkeaYhIXIeah7s2s5XZ32s6hn1GC1xu4RRls+BPLvKr4mYaGAlqtaHJpbn1RVP69LD7wmYQGV5\/GddzRw84maulMLQHSr6clNDRDIX3YE8u8ehDGUGGEMhDGwSH\/lI4zBG2EMhDEAABAKFGAAAAJAID9QQgTyA+sI5M\/GGHCJMQbMGDBjg5WPMWBvjAEzBgwAQChQgAEACIC\/AuwE8ZvVsOyte1xJ8xYMJ5DBax3oJQ0fJXwfFSY3iN9sBMEHwM5l5lrsGj4L8KqWmwfWV8QaYW3oXFNXesXqnIiuBd1Mh\/Hb2009aermg7\/cHk5kXANru7lgvbig+2RChpKvApyYnVHtAUpuQVNdap2LEdcIpD3UhPXhX9V0XCwFHZQjamMlrFDzUYCTSq7U6kSMApzfkoYvS5PX2sy+D7fsNaTd5SuPDhOdhArlhDTs0z4awYGoPnmMtbhDzlcBXl2W7r6dGgPu1jgDwGlLw29oou2Cikn0jc8d1qLznPSkGnvrGRNGhfpCa0ThBaRaLzRUaeE+a3GHmXcBTia1Yv3XiYupVKTzWm0fZLzTMaUrE2261lNc\/ELnpVRgQ4tOd1oF+RYVGMAOqn5BDaQghZ53Aa45q5HpEZ3N6oFesety5E11tUrpYro19YcZOUal2q+qqjWtfWF2UTbVLzSoamGBsd+Q8zUJC\/lM6Vbcar22pqII7VnQcSeasJgu5cX5hGKH680eUEGONKhBT\/SEPtCy219VpTXufELPuwAnBnXqVEaXs90lXXtCzMlq0VWz3rWzLQ4ppk5NWl9f9RgQjl8eljP1amlYl60i3niIBGFUGncG7trsPVphZVetffukJ9z5hJ53AY71aaxjRf2pRTjaV3We54C3pbNxXvWm1ayhRc+CDYRfg85kLf5wRro5oHd4\/jQAdP3vFoQxlBhhDIQxsEh\/5SOMwRthDIQxAAAQChRgAAACQCA\/UEIE8gPrCOTPxhhwiTEGzBgwY4OVjzFgb4wBMwYMAEAoUIABAAiAzwKc1Hh3KozhlLpJY1jnBPGb1bDs7ahZZCMvAvlRgQoE8rtbG3GE5ZZ1Pd4Ukczh5asAJwbbNaoOjdlhDGMd0ujbJCKlLM4r0Tm5PvHswfbWhgZ2p9xA\/tRGFm15HVFbd5Oe3HTP\/8is1NTNTVBY+SjACc3O1Krjoln9Km84Q3RN3YqzljOAcKjep33WzVAqBenxnftkMoeYdwF24ggPqoaCm8eSHs3F1PZqkW1eAvkBlMLjT7Sw1qCGVJPXDsRYW9AnrAgaSj4K8KqWaw9I493pMeBBwoCNRc1b52LijdQY8FH5qacE8qPy5K4FbbY2Oj\/L67HuvDOitWPm\/B9b08g7hPKHlb9JWMujuq6LbiD\/QLNm+rsZA7YtPZL9WHnbtdTCI5c0X98lr3pKID8qT4Ex4AlGgMvriNqsz+eGhRF3DHihQd1MhAstfwW4tkMXU4O+sXPqqF3WKgVYquvRg2cP1JPVAz2nR0X0KhPID2DHmDHg+yaFijHgcPMuwDUHVLu8KuptaRDIDwDR5KMAn9X55hldT\/U5J25odLlZTTTcpCl7MlVGl7PdJR1rk9ecLAL5AZSEmYR1zDz8W33ymBr0RGTzh5OvLuhY35hO3G13J2H1z6h5oE\/UX0vLVS0Ozak1tQhH\/bwu+XgOmEB+VJ4Ck7CsjXlY5fRYd95zHv51zn13kzQ7wrPYYUUYQ4kRxkAYA4v0Vz7CGLwRxkAYAwAAoUABBgAgAATyAyVEID+wjkD+bIwBlxhjwIwBMzZY+RgD9sYYMGPAAACEAgUYAIAAeBfgxGA6hCFzI5Q\/xQ3Zd8MYvNKNCORHhdoklJ\/ngMvEuQY56z7nXBeuRbh4F+BYnxvCkNoGmq0Xm3WeQGDHVFe9ejXkphstDkm9b\/hKRAIqT\/5ABvIYysEN4q8ye67scP6BmwtqOPOmzCJZCIEiu6ATGmQlrAxTuhWPaeiaWf0qbzgDAJRO9ck3rdbtGe1bWNCaec3hZAHP6l7qBujhPc2uValqv9lH4IoqwMnx65qp7dA5qq\/LiSNsVNFLORPID2CnPLmvEauF+869rPJrFdwJDWRlAe9XVXYTGQErogAnlbi7rObzZ0Xns7E4r0TssDR8NF1Q\/YzvEsiPypRnPWgGHUvu8cOHvgL3nWCGzBYxAue\/ACcTuksK0kaJXl3WNXfhkclOxVuPeo4BE8iPypRnDJgB4FCwu6m7m57oZlaLGEHzXYCTibtabm5i7DdXbEjXUoO+LRc0FEtoftHd9YNAfgCl5BZfUpHCyH8BXl1W7QE6n7PUH1YsMa8i6u0GBPIDKJV0y3fgHd2h6Rs6PgtwUskV6WANBThLXY8udcZ1OdXnPHVFvYlOnfbI9yWQH0DJVZ\/Ua7R8Q813AV5drhUN4I1ari6qbaLenYTVGlfn5FV55esTyA+g1I4ct58LrlJTd\/bEOObFhQdhDCVGGANhDCzSX\/kIY\/BGGANhDAAAhAIFGACAABDID5QQgfzAOgL5szEGXGKMATMGzNhg5WMM2BtjwIwBAwAQChRgAAAC4K8AJ8fVnQ7j7xZZ\/MbUeqpR5kbCESIlXxC8rdDrKA0C+XcdHwU4ocH2UR0ccAP5xzqk0fZB61Wo5Wr2pLPJTuvFTl0iEBhAWRHIvxt5F+BkUitaT0GqOXve2luxX0aWKXX5XAkLAHYKgfy7l3cBronpRO2MZlNN3sSsZmpPKMaylFmWhi8rHhvSBa\/quzSsoxnd1WQBA9gWAvl3LR9d0DU6OzKmA9fNGPD1AxobIZQ\/25JuTyQycn4LsVrJ9b1qnDRd1otDmmvtsl4Fdrs8YfwbukRRCgTy717+xoBPtevuiTF3DPjEXbWfYgw4y9JtTfhIQdLUrexWcl2PHjyjyxqVIE8Y\/8hsdpcoAkMgfzj5HgM+f9Zt8zIGvNHS7QklOk97FtKlR6wCA6C8COQPLx8tYHjxG6pfd4hlCQGUD4H84eZ7EtZ18\/Bvcvy6ZnRQZPOnLMlu2PoK1W85rc5Er66kBn2dCVlHxWPDAHYcgfyh528S1kXn4V9nElb7qNQx1ifzVBK0qPlETD4awJYWXXUmXplZ0M6ErAfisWEAO41A\/vAjjKHECGMgjIFF+isfYQzeCGMgjAEAgFCgAAMAEAAC+YESIpAfWEcgfzbGgEuMMWCOP8rHHxVcZ298Fmw8frqgAQAIAAUYAIAA+CvAmYH83eNiFcoMWelGxS6qMaUuFuIAgEjyUYDdQH51ZIQxDBLF4MpON1ocknrrSTcCAHjzLsD5whhmrsusTBltS480p\/UUpLqeS9benB7RogUAeGAMeDvqXlVbLK5bqSavEzfYplc3W1pyqst0V1tb1y3zIgAgarwLcE2NDmpGs6bX2Q1jWNYqLWBLnXoeLOrwZVNQLx\/W4oPNQvmn1NUaV2eqy\/rwnOLmHQBAtPhoAcfUN9ahlX53EtbbOq+OWvNW5NmTqOo10bboFtS2CdXv2WQMOCeQ3+2yBgBEkb8u6JqzGpmediZhjZyVVpdrdYA4wvQY8CUTZ+Q1BkwgPwAgpfgxYGdSFnnAW0EgPwAgxUcBTmjwVHd61nPixqiWm5vIA7aZSViXzYO8S8OXFVejCmbz5wTyu\/8eABBF\/saABw5qtN0dA+5f6dBYH+XXVaeea87Dv84krPpeaWjxqswQbx7ZgfxvqI0xYACIKMIYSowFyDl+FumvfFxnb3wWbDz+4seAAQDAtlGAAQAIAIH8AAAEgDHgEmPcg+NnbLDycZ298Vmw8fjpggYAIAAUYAAAAuBdgJ0w\/kFlJwAnNd5tAvo3vBcxmYH8R4dFEiEAwA+PAuyG8S+bvZTEYLtGDw44a0MPNM+oP7IB\/W4gv4Yywhi6iOMHAHgrWICT491W67ZfK83Nyg4\/Smh2plYd59zVsGLnOlQ7MxvNVnC+MIb4ZZmVKQEAKKhwC7jmvMbs9KNzB8wLRm4Yg5MXvGK\/DF\/sCEPTZb1ZdCEAoKIVLMA1sZgIPPJQd0iNiutWVrhCQvOL7v5GSxo+2iqlAvmH5tTKuDEARJL3JCxsIjdc4ZKGNsupWLqtiUSnTmcG8icmdJsKDACRQwHerroePTCrfj3okeYTMR2uN+\/lFVdrugu6lThCAIio4gtw7pgvAf3rnElZm+QBOzo1aQq2uz2QmcMFAIiQLbSAY2pqXtboDXfec7QD+u0JVUfTs56nrvQq0Xm6cB6wCfBPjRm7zxAzEQsAomhLXdCxvgE1z\/S7Af0zzRqIbEB\/i65ONqq33u1Sbp0b0uLVwnH8VgVWz4NJyYwZ76mfUNumAf4AgEpFGEOJsQA5x88i\/ZWP6+yNz4KNx88kLAAAAkABBgAgAATyAwAQAMaAS4xxD46fscHKx3X2xmfBxuOnCxoAgABQgAEACIB3Ac4byG9s9l4lyrtwhh2wkFpakkU1AAD+eBTg\/IH8rs3eq0Ru+H7uzcZUV716GyedCWeTnXG1EsgPAPChYAEuHMi\/+XuVaGn4qBOcMNfZmbPk5pRuxWMauuCuZdVyYUix+C1awQAAT4VbwIUC+W2bvVeJDl3SotXCfXDhsHnByA1fcPKB5\/SoYLyg213dNWx3ZZtua7vF7HRtZ+wDACpewQK8WSB\/1ML661patJOBRfEJ6ZrznPSkOuOt2vOG2V+0W9CX0+EOAIDK5T0JCzuu81KPKej1OhzL2HfSkhKaX3TeBABUMAowAAABoABvR+6Yr69AfgAAKMDb1KLTnQn1XnEnTnkG8gMAYFCAt6nlqplItWePWuOdmtw0kB8AABdhDCXGAuQcP4v0Vz6uszc+CzYePy1gAAACQAEGACAABPIDABAAxoBLjHEPjp+xwcrHdfbGZ8HG46cLGgCAAFCAAQAIgHcBzhe677x2SqfMNhiZRH4AAHaGRwHOF7rvvnZwYFrT09Y20KyZ\/m6NJ83bAADAU8ECXDB0PzGrmdoOnUsl08fOqaN2WasUYAAAfCvcAi4Uuh\/r0\/TI2Yw84KRWs5vIAADAQ8EC7Dd0Pzl+PbtFDAAAPHlPwtqE3U3dPnpQA1ktYgAA4GXLBdgtvlLHWJ9o\/AIAUJwtFeB0y3d6RGdp+gIAULTiC3ByXG\/T8gUAYFuKLsCJG\/ZzwcsabV9fiIPFOAAAKI53Aa45q5Hp9dZurM8swJGz9dEcBgDAty1PwgIAAFtHAQYAIAAE8gMAEAAC+UuMEGqOn6D2ysd19sZnwcbjpwsaAIAAUIABAAiAdwHOF8ifGMx4BpgsYAAAiuVRgPME8tsFuX9FHWPmGeCBgxptzynQAABgUwULcMFAfmdhjow1oGNNataKkrSCAQDwrXALuFAgfw43D\/iEYoQyAADgW8EC7BnI74wNn3IjCS+SBwwAQDG8J2EV4nRFMwYMAMBWbL0ApzAGDABA0bZfgAEAQNGKL8DOM8AZXc5W03eFSVgAABSl+AIc69NYx4r6UwtxtK\/q\/AiTsAAAKIZ3Ac4J5LfVnB3JCOPPfg8AAHhjDBgAgABQgAEACACB\/AAABIBA\/hIjhJrjJ6i98nGdvfFZsPH46YIGACAAFGAAAALgXYDzBfKnbPYeAAAoyKMA5wnkz5C4Ufg9AABQWMECXDCQPyUxqP6V2vzvAQCATRVuAW8ayJ\/U+HVp4OIJsw8AAIpRsABvFsifHH9bd0+cYwlKAAC2yHsS1gYJ3bh7QhfPEr8AAMBWFV2AE4P90nnSjwAA2I4iC3BCszPSTH8qitCeBT3jRBMO8iwSAAC+FVmAY+pLxxBa21iHatWsAevrPgaEAQDwbQtjwAAAYLu8C3CeQP60zd4DAAAF0QIGACAAFGAAAAJAID8AAAEgkL\/ECKHm+Alqr3xcZ298FuQev\/T\/AROmQo6ZCs\/iAAAAAElFTkSuQmCC"}[/IMG2]
above is the data which name "m" is missing in Model data base which need to be added by inputbox and restart the macro to get actual result.
Code
Display MoreOption Compare Text Sub iui() Dim x 'find last row LastRow = Range("A1").CurrentRegion.Rows.Count lastrow1 = Range("F1").CurrentRegion.Rows.Count ' get database into array " I have learnt by [URL="https://www.ozgrid.com/forum/member/275839-graha_karya"][B][U][COLOR=#0066CC]graha_karya[/COLOR][/U][/B][/URL] ... sir" With ActiveSheet x = Range("D2:E" & lastrow1) End With For Each c In Range("B2:B" & LastRow) If c.Value Like x(1, 1) Then i1 = x(1, 2) + i1 ElseIf c.Value Like x(2, 1) Or c.Value Like x(3, 1) Then i2 = x(2, 2) + i2 ElseIf c.Value Like x(4, 1) Then i3 = x(4, 2) + i3 ElseIf c.Value Like x(5, 1) Then i4 = x(5, 2) + i4 ElseIf c.Value Like x(6, 1) Or c.Value Like x(7, 1) Then i5 = x(6, 2) + i5 Else i6 = InputBox("Capacity of" & c.Value, c.Value, 1) Range("M" & lastrow1 + 1) = c.Value Range("N" & lastrow1 + 1) = i6 End If Next MsgBox i1 + i2 + i3 + i4 + i5 End Sub -
-
Hi Sir, plz suggest
-
-
Hi Sir,
can I have the solution for above?
-
one more thing if the target cell is empty then do nothing
-
