Excel Sheet Formula

[Rehmat85]

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

[Shireen Shari]

File Ka Naam Kiya Hai.

[syar]

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

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

4. Macro run karne k leye developer k tab m jakar macro selet karai aur run kar lain.

[syar]

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,

[syar]

or replace above code with this one. In case someone enter wrong date in Daily sheet

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

[Shireen Shari]

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.

[IT.BOY]

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.

کیا آپ کی پرابلم سالوڈ ہو گئی ہے۔۔۔؟

[Shireen Shari]

Jee..Ho Gai Hai.

THANX

[IT.BOY]