formülü makroya uyarlama

yildirimm · 22 Haziran 2007

merhaba ekteki dosyamda bi çalışma yaptım daha önce bu soruyu sormuştum başka başlık aktında ama orası karışık olduğu için buraya açmayı uygun gördüm sıkıntım şurda şimdi icmal sayfamda bi aktar butonum var ve 6 sayfam var aktar butonuna basınca veriler otomatik olarak geliyor orda bir sorun yok ama bu el yazdığım formüller kayboluyor b9:b10 c9:c10 d9:d10 e9:e10 f9:f10 g9:g10 hücresindeki formülleri aktar butonu içindeki makroya uyarlamayı beceremedim bu konuda bana yardımcı olursanız sevinirim zaten icmalde açıklamada yazıor ekteki dosyada birde ben icmal sayfasındaki tek tarihi a2 hücresi yapabildim b2 hücresininde olması lazım iki tarih aralığı olduğu için yardımlarınız için tşkler iyi çalışmalar

geren36 · 22 Haziran 2007

sn yildirim,

sorunuzu anlamanın gerçekten zor olduğunu düşünüyorum.

Biraz daha açık ve net -mümkünse maddeler halinde- yazarsanız eminim yardım edenler çıkacaktır...

kolay gelsin.

udentr2002 · 23 Haziran 2007

Sayın yıldırım

Kodlarınızı aşağıdaki gibi yazın

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set Sİ = Sheets("İCMAL")
Set WF = WorksheetFunction
Sİ.[B9:B10,B11:C9,C10:C11,D9

10,D11:E9,E10:E11,F9:F10,F11:G9,G10:G11].ClearContents
For X = 1 To 6
Sheets(X).Select
If Sheets(X).[A3] <> "" Then
Sheets(X).[A3].AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(Sİ.[A2])), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(Sİ.[B2]))
If X = 1 Then
Sİ.[B9] = WF.Subtotal(3, Sheets(X).[E3:E65536])
Sİ.[B10] = WF.Subtotal(9, Sheets(X).[E3:E65536])
ElseIf X = 2 Then
Sİ.[C9] = WF.Subtotal(3, Sheets(X).[E3:E65536])
Sİ.[C10] = WF.Subtotal(9, Sheets(X).[E3:E65536])
ElseIf X = 3 Then
Sİ.[D9] = WF.Subtotal(3, Sheets(X).[E3:E65536])
Sİ.[D10] = WF.Subtotal(9, Sheets(X).[E3:E65536])
ElseIf X = 4 Then
Sİ.[E9] = WF.Subtotal(3, Sheets(X).[E3:E65536])
Sİ.[E10] = WF.Subtotal(9, Sheets(X).[E3:E65536])
ElseIf X = 5 Then
Sİ.[F9] = WF.Subtotal(3, Sheets(X).[E3:E65536])
Sİ.[F10] = WF.Subtotal(9, Sheets(X).[E3:E65536])
ElseIf X = 6 Then
Sİ.[G9] = WF.Subtotal(3, Sheets(X).[E3:E65536])
Sİ.[G10] = WF.Subtotal(9, Sheets(X).[E3:E65536])

End If
Sheets(X).[A4].AutoFilter
End If
Next
Sheets("icmal").Select
Sİ.[B9] = "=IF(DAY(DATE(YEAR(R[-25]C[-1]),MONTH(R[-25]C[-1])+1,DAY(R[-25]C[-1]))-1)=31,(31-2.5)*20,(30-2)*20)"
Sİ.[B10] = "=SUM(st1!R[-7]C[3]:R[1990]C[3])/60"
Sİ.[B11] = "=B9-B10"
Sİ.[C9] = "=IF(DAY(DATE(YEAR(R[-25]C[-1]),MONTH(R[-25]C[-1])+1,DAY(R[-25]C[-1]))-1)=31,(31-2.5)*20,(30-2)*20)"
Sİ.[C10] = "=SUM(st2!R[-7]C[2]:R[1990]C[2])/60"
Sİ.[C11] = "=C9-C10"
Sİ.[D9] = "=IF(DAY(DATE(YEAR(R[-25]C[-1]),MONTH(R[-25]C[-1])+1,DAY(R[-25]C[-1]))-1)=31,(31-2.5)*20,(30-2)*20)"
Sİ.[D10] = "=SUM(st3!R[-7]C[1]:R[1990]C[1])/60"
Sİ.[D11] = "=D9-D10"
Sİ.[E9] = "=IF(DAY(DATE(YEAR(R[-25]C[-1]),MONTH(R[-25]C[-1])+1,DAY(R[-25]C[-1]))-1)=31,(31-2.5)*20,(30-2)*20)"
Sİ.[E10] = "=SUM(st4!R[-7]C:R[1990]C)/60"
Sİ.[E11] = "=E9-E10"
Sİ.[F9] = "=IF(DAY(DATE(YEAR(R[-25]C[-1]),MONTH(R[-25]C[-1])+1,DAY(R[-25]C[-1]))-1)=31,(31-2.5)*20,(30-2)*20)"
Sİ.[F10] = "=SUM(st5!R[-7]C[-1]:R[1990]C[-1])/60"
Sİ.[F11] = "=F9-F10"
Sİ.[G9] = "=IF(DAY(DATE(YEAR(R[-25]C[-1]),MONTH(R[-25]C[-1])+1,DAY(R[-25]C[-1]))-1)=31,(31-2.5)*20,(30-2)*20)"
Sİ.[G10] = "=SUM(st6!R[-7]C[-2]:R[1990]C[-2])/60"
Sİ.[G11] = "=G9-G10"

Sİ.Select
Set Sİ = Nothing
Set WF = Nothing

Application.ScreenUpdating = True
MsgBox "BİLGİLER AKTARILMIŞTIR.", vbInformation
End Sub

Daha bilgili bir hocam belki kısa bir yoldan halledebilir ama benim buulduğum çözüm bu oldu inşallah işinizi görür

udentr2002 · 23 Haziran 2007

yıldırım kardeş

Dosyanı dü<zenledim dediğin gibi aktar butonuna bastıktan sonra o hücrelere formülleri yazıyor inşallah dediğin gibi olmuştur incele dosyayı

yildirimm · 23 Haziran 2007

sayın udenttr2002 çok tşk ederim hemen deniyorum dosyayı. sayın udenttr bir iki sorun var birincisi =EĞER(GÜN(TARİH(YIL(A65520);AY(A65520)+1;GÜN(A65520))-1)=31;(31-2,5)*20;(30-2)*20) icmal sayfasındaki çalıştığı süre bu şekilde hesapnanıyor burda hem a2 hemde b2 aralığğındaki tarihi alacak bu tarihler st1 den st6 da b sutunundaki tarihten gelecek ve çalışma süresini e sutunundan alacak daha açıklyıcı olması için şöyle diyim misal icmal sayfasındaki st1 deki b 9 hücresine gelecek değer icmal sayfasındaki a2 ile b2 tarihi aralığındaki st1 deki b sutunundaki tarihlere denk gelen e sutunundaki zaman kayıplarını toplayacak sürekli ve =EĞER(GÜN(TARİH(YIL(A65520);AY(A65520)+1;GÜN(A65520))-1)=31;(31-2,5)*20;(30-2)*20) bu formülü uygulayarak atacak sonucu umarım anlaşılır olmuştur iyi çalışmalar not burda sadece a2 var bana iki tarih aralığı lazım yani bu formül a2 ile b2 arasındaki tarih aralığına uyarlanmalı

emrexcel123 · 23 Haziran 2007

buyrun

arkadaşım dosyan ektedir sayfaların yerini değiştirmezsen sorun çıkmaz...

yildirimm · 23 Haziran 2007

arkadaşlar yardımlarınız için çok tşk ederim ama bi tek sorun var oda icmal sayfasındaki b9 yani çalışması gereken süre de bi sorun var örnek dosyada açıklamaları yazdım buda olursa sorun çözülmüş olacak şimdiden tşkler

emrexcel123 · 23 Haziran 2007

arkadaşım bir nevi ekstre gibi yani eğer st1-st6 aralığındaki tarihler icmal sayfasındaki belirlenen tarihler arasındaysa toplasın ilgili yerlere yazsın demek istiyorsun herhalde ?

yildirimm · 23 Haziran 2007

sayın emreexcel evet aynen öyle olacak

emrexcel123 · 23 Haziran 2007

buyrun

ekteki gibi birşeymi ?

yildirimm · 23 Haziran 2007

sayın emreexcel tam olarak değil sorunum şurda icmal sayfasındaki çalışma sürelerine değerler yanlış gelior benim istediğim olay a2 ile b2 tarihleri arasındaki EĞER(GÜN(TARİH(YIL(A65520);AY(A65520)+1;GÜN(A6552 0))-1)=31;(31-2,5)*20;(30-2)*20) bu formülü uygulayıp toplayacak misal 1 ay 30 çekior ne yapar bu formülle 560 31 çekiorsa 570 verior bunları toplayacak yani demek istediğim bu üstüne toplayacak st lerede ayrı ayrı uygulanacak ilginize tşkler

yildirimm · 23 Haziran 2007

örnek dosya ektedir sayın emreexcel sanırım bu şekilde daha iyi anlasınız ne demek istediğimi yardımlarınız için tşk

emrexcel123 · 23 Haziran 2007

arkadaşım buradaki a65520 nedir
EĞER(GÜN(TARİH(YIL(A65520);AY(A65520)+1;GÜN(A65 52 0))-1)=31;(31-2,5)*20;(30-2)*20)
yani nereyi almak istiyorsun tam anlayamadım :???:

yildirimm · 23 Haziran 2007

sayın emre excel şöyle diyim EĞER(GÜN(TARİH(YIL(A2);AY(A2)+1;GÜN(A2))-1)=31;(31-2,5)*20;(30-2)*20) bu formül icmaldeki sadece a2 tarihini alıyor bu formül aynı şekilde b2 tarihinide alacak yani EĞER(GÜN(TARİH(YIL(B2);AY(B2)+1;GÜN(B2))-1)=31;(31-2,5)*20;(30-2)*20) icmaldeki iki tarih aralığı alacak ve bu formülü uygulayıp üst üste toplayacak yani şubat+mart+nisan+mayıs+haziran gibi iki tarih aralığındaki değere göre işlem yapacak sanırım bu el daha iyi anlatabildim

emrexcel123 · 23 Haziran 2007

şöyle >>
icmal sayfasında belirlenen tarihler arasında kalan değerler eğer st1-st6 'da var ise bu sayfalardaki değerleri bu formülle toplayıp yazacak...

yildirimm · 23 Haziran 2007

evet aynen toplayıp çalışması gereken süreye yazacak ama stlere ayrı ayrı yazacacak

Korhan Ayhan · 23 Haziran 2007

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Set S&#304; = Sheets("&#304;CMAL")
    &#304;LK_TAR&#304;H = S&#304;.[A2]
    SON_TAR&#304;H = S&#304;.[B2]
    S&#304;.[B9:G11].ClearContents
    For X = 1 To 6
    If Sheets(X).[A3] <> "" Then
    For Y = 3 To Sheets(X).[B65536].End(3).Row
    If Sheets(X).Cells(Y, 2) >= &#304;LK_TAR&#304;H And Sheets(X).Cells(Y, 2) <= SON_TAR&#304;H Then
    G&#220;N = Day(DateSerial(Year(Sheets(X).Cells(Y, 2)), Month(Sheets(X).Cells(Y, 2)) + 1, 0))
    If G&#220;N = 28 Or G&#220;N = 29 Or G&#220;N = 30 Then
    S&#220;RE = S&#220;RE + ((G&#220;N - 2) * 20)
    ZAMAN_KAYBI = ZAMAN_KAYBI + (Sheets(X).Cells(Y, 5) / 60)
    ElseIf G&#220;N = 31 Then
    S&#220;RE = S&#220;RE + ((G&#220;N - 2.5) * 20)
    ZAMAN_KAYBI = ZAMAN_KAYBI + (Sheets(X).Cells(Y, 5) / 60)
    End If
    End If
    Next
    If X = 1 Then
    S&#304;.[B9] = S&#220;RE
    S&#304;.[B10] = ZAMAN_KAYBI
    S&#304;.[B11] = S&#304;.[B9] - S&#304;.[B10]
    ElseIf X = 2 Then
    S&#304;.[C9] = S&#220;RE
    S&#304;.[C10] = ZAMAN_KAYBI
    S&#304;.[C11] = S&#304;.[C9] - S&#304;.[C10]
    ElseIf X = 3 Then
    S&#304;.[D9] = S&#220;RE
    S&#304;.[D10] = ZAMAN_KAYBI
    S&#304;.[D11] = S&#304;.[D9] - S&#304;.[D10]
    ElseIf X = 4 Then
    S&#304;.[E9] = S&#220;RE
    S&#304;.[E10] = ZAMAN_KAYBI
    S&#304;.[E11] = S&#304;.[E9] - S&#304;.[E10]
    ElseIf X = 5 Then
    S&#304;.[F9] = S&#220;RE
    S&#304;.[F10] = ZAMAN_KAYBI
    S&#304;.[F11] = S&#304;.[F9] - S&#304;.[F10]
    ElseIf X = 6 Then
    S&#304;.[G9] = S&#220;RE
    S&#304;.[G10] = ZAMAN_KAYBI
    S&#304;.[G11] = S&#304;.[G9] - S&#304;.[G10]
    End If
    End If
    S&#220;RE = 0
    ZAMAN_KAYBI = 0
    Next
    Set S&#304; = Nothing
    Application.ScreenUpdating = True
    MsgBox "B&#304;LG&#304;LER AKTARILMI&#350;TIR.", vbInformation
End Sub

yildirimm · 23 Haziran 2007

sayın cost_control yardımlarınız için çok ederim oldu herkese tşk ler

Korhan Ayhan · 23 Haziran 2007

Selamlar,

Önerdiğim kodda ufak bir problem vardı. Üstteki mesajımdaki kodu güncelledim denermisiniz.

yildirimm · 23 Haziran 2007

cost control denedim gayet güzel oldu ellerinize sağlık tarih aralığı yazılmadığı zaman işlem yapmıyor gayet mantıklı oldu

formülü makroya uyarlama

yildirimm

geren36

udentr2002

udentr2002

yildirimm

emrexcel123

yildirimm

emrexcel123

yildirimm

emrexcel123

yildirimm

yildirimm

emrexcel123

yildirimm

emrexcel123

yildirimm

Korhan Ayhan

Administrator

yildirimm

Korhan Ayhan

Administrator

yildirimm