man ny file 4 shared man upload ke ha us man visual basic istamal ki ha right click se chaly ge ap pahly apni micro enable kr len, file ka address
.com/office/vAU5BNhH/datafile*********
ha check kr k reply krna
man ny file 4 shared man upload ke ha us man visual basic istamal ki ha right click se chaly ge ap pahly apni micro enable kr len, file ka address
.com/office/vAU5BNhH/datafile*********
ha check kr k reply krna
File Ka Naam Kiya Hai.
another alternate. Try this
Macro button sa run karna chahe ya direct developer k tab m ja kar macro run k button sa.
Coding m find ki jagha match ka function use kya ha. jis ki wajha sa aap dates ko jese chahe format kar lain. koi farq nahee pare ga.
1. Press ALT+F11
2. Insert ---->Module
3. copy below coding and close window
4. Macro run karne k leye developer k tab m jakar macro selet karai aur run kar lain.Code:Sub copyrow() 'select criteria from sheet1 Dim criteria As Range Set cirteria = Worksheets(1).Range("b2") ' select range from daily sheet to copy Dim myrange As Range Set myrange = Worksheets(1).Range("b12:d12") 'date range to find match against sheet1 date Dim copyrange As Range Set copyrange = Worksheets(2).Range("b1:b100") ' return the address of the cell where exact match found copytorow = Application.WorksheetFunction.Match(cirteria, copyrange, 0) 'copy from sheet 1 myrange.Copy 'paste into summary worksheet Worksheets(2).Cells(copytorow, 3).PasteSpecial xlPasteValues, _ Transpose:=False End Sub
Agar Button k through he chalana ho tu oper wali coding copy kar k button ki coding sa replace kar dain. Lekan sub aur end sub ko rehne dejeya ga.
Coding m mojood red color ki range ko future m aap apne marze sa change bhe kar sakte hain.
See the attached file.
regards,
or replace above code with this one. In case someone enter wrong date in Daily sheet
Code:Sub copyrow() 'select criteria from sheet1 Dim criteria As Range Set criteria = Worksheets(1).Range("b2") ' select range from daily sheet to copy Dim myrange As Range Set myrange = Worksheets(1).Range("b12:d12") 'date range to find match against sheet1 date Dim copyrange As Range Set copyrange = Worksheets(2).Range("b1:b100") 'check for errors if date not found msg box appear If IsError(Application.Match(criteria, copyrange, 0)) Then MsgBox "NoDatefound" Else ' return the address of the cell where exact match found copytorow = Application.Match(criteria, copyrange, 0) 'copy from sheet 1 myrange.Copy 'paste into summary worksheet Worksheets(2).Cells(copytorow, 3).PasteSpecial xlPasteValues, _ Transpose:=False End If End Sub
Thanks, Syar Bhai Aap Ne Bohat Achhi Koshish Ki Hai.
Koshish Jari Rakhiye Shaid Micro (Button) Ke Baghair Bi Aisa Hall Momkon Ho Jay.
Plz....
Agar Micro (Button) Ke Bhair Bi Sheet Mein Aisa Furmula Ban Jay..
Tu Lazmi Shar Kiriye Ga.
i am very very very thankful to U.
Jee..Ho Gai Hai.
THANX
Bookmarks