aktar butonuna basıldığı vakti tüm değerlerin otomatik atması

[yildirimm]

merhaba arkadaşlar kolay gelsin benim sorunum şu şimdi bi tane testere takip programı var icmal sayfası var icmaldede iki tarih aralığı girdim misal 01.06.2007 30.01.2007 ve aktar butonu var benim istediğim olay aktar butonuna basınca tüm değerler boş hücrelere otomatik gelecek bi tek arızası sayısı misal st1 de o tarihlerde kaç satır girilmişse ona göre gelecek atıyorum 5 se 5 10 sa on ve regal vs sürekli üst üst üstte toplayarak atacak dosya ektedir yardımlarınız için şimdiden tşkler

 

[yildirimm]

sanırım sorum acık olmamış benim istediğim şey icmaldeki sayfada veriler ver bu verilerin karşılarına diğer 6 sayfadaki değerler yanlarındaki hücreye aktar butonuna bastığım vakit hepsini otomatik olarak gerekli olan hücrelere dağıtılacak traverten regal bej yazdım icmalde bunlarında m2 leri var onlarda formül vs yok sadece o sayfaya ait değerler otomatik olarak toplanıp gelecek istediğim bu ilginize şimdiden tşkler

 

[yildirimm]

sorunum çözülmüştür.Katkılarından dolayı sayın COST_CONTROL üstadıma çok tşk ederim dosya ektedir isteyen arkadaşlar inceleyebilir ve baya fayalı bir bbilgi aktarımı herkesin işine yarar bence.

kod aşağıdadır

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set Sİ = Sheets("İCMAL")
Set WF = WorksheetFunction
Sİ.[B6:B9,B11:B14,B16:B19,B21:B24,B26:B29,B31:B34].ClearContents
For X = 1 To 6
Sheets(X).Select
If Sheets(X).[B5] <> "" Then
Sheets(X).[A4].AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(S&#304;.[A2])), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(S&#304;.[B2]))
If X = 1 Then
S&#304;.[B6] = WF.Subtotal(3, Sheets(X).[I5:I65536])
S&#304;.[B7] = WF.Subtotal(9, Sheets(X).[J5:J65536])
S&#304;.[B8] = WF.Subtotal(9, Sheets(X).[K5:K65536])
S&#304;.[B9] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 2 Then
S&#304;.[B11] = WF.Subtotal(3, Sheets(X).[I5:I65536])
S&#304;.[B12] = WF.Subtotal(9, Sheets(X).[J5:J65536])
S&#304;.[B13] = WF.Subtotal(9, Sheets(X).[K5:K65536])
S&#304;.[B14] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 3 Then
S&#304;.[B16] = WF.Subtotal(3, Sheets(X).[I5:I65536])
S&#304;.[B17] = WF.Subtotal(9, Sheets(X).[J5:J65536])
S&#304;.[B18] = WF.Subtotal(9, Sheets(X).[K5:K65536])
S&#304;.[B19] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 4 Then
S&#304;.[B21] = WF.Subtotal(3, Sheets(X).[I5:I65536])
S&#304;.[B22] = WF.Subtotal(9, Sheets(X).[J5:J65536])
S&#304;.[B23] = WF.Subtotal(9, Sheets(X).[K5:K65536])
S&#304;.[B24] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 5 Then
S&#304;.[B26] = WF.Subtotal(3, Sheets(X).[I5:I65536])
S&#304;.[B27] = WF.Subtotal(9, Sheets(X).[J5:J65536])
S&#304;.[B28] = WF.Subtotal(9, Sheets(X).[K5:K65536])
S&#304;.[B29] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 6 Then
S&#304;.[B31] = WF.Subtotal(3, Sheets(X).[I5:I65536])
S&#304;.[B32] = WF.Subtotal(9, Sheets(X).[J5:J65536])
S&#304;.[B33] = WF.Subtotal(9, Sheets(X).[K5:K65536])
S&#304;.[B34] = WF.Subtotal(9, Sheets(X).[L5:L65536])
End If
Sheets(X).[A4].AutoFilter
End If
Next
S&#304;.Select
Set S&#304; = Nothing
Set WF = Nothing
Application.ScreenUpdating = True
MsgBox "B&#304;LG&#304;LER AKTARILMI&#350;TIR.", vbInformation
End Sub

 

[yildirimm]

merhaba arkadaşlar şimdi değişik bir program yapmamı istediler bende kafanızı agrıtıyorum ama mecburum sıkıntı su yukardaki aynı mantığa benzer birşey olacak kodlari vs herşey aynı sadece burda dk saat olayı vs var benim kafamı orası karırştırıyor acıklayıcı olsun diye örnek dosyaya gerekli acıklamaları yazdım aktar butonuna basınca testeredeki örnekteki gibi o tarihler arasındaki veriler gelecek örnek dosyayı incelerseniz daha ayrıntılı bilgi icmal sayfasında mevcut yardımlarınız için şimdiden tşkler

 

[yildirimm]

dosya açılmadığı için dosyayı güncellemiş bulunmaktayım yardımlarınız için şimdiden tşkler

 

[xxcell]

Dosyanız ektedir.

 

[yildirimm]

say&#305;n xxcell yard&#305;mlar&#305;n&#305;z i&#231;in &#231;ok t&#351;k ederim tam istedi&#287;im &#351;ekilde bi &#231;al&#305;&#351;ma oldu ufak bi sorun var &#214;rnek =30-2/2*20 bizim form&#252;l&#252;m&#252;z b&#246;yle idi ama as&#305;l form&#252;l 30-2*20 31-2,5*20&#351;eklinde imi&#351; bunu sizin form&#252;l&#252;n&#252;ze g&#246;re nas&#305;l uyarlar&#305;m

 

[xxcell]

sayın xxcell yardımlarınız için çok tşk ederim tam istediğim şekilde bi çalışma oldu ufak bi sorun var Örnek =30-2/2*20 bizim formülümüz böyle idi ama asıl formül 30-2*20 31-2,5*20şeklinde imiş bunu sizin formülünüze göre nasıl uyarlarım

Sn.Yıldırım,
=(30-2)/2*20, 280 yapıyor. Ben kurduğum formülde direk 280 yazmıştım.
siz = (30-2)*20 şeklinde değişmesini istediğiniz için ve buda 560 yaptığı için 280 gördüğünüz yerleri 560 yapın.

Aynı şekilde 31 gün 285 yapıyordu. Bunlarıda 570 yapın.

Başarılar.

 

[yildirimm]

say&#305;n xxcell yard&#305;mlar&#305;n&#305;z i&#231;in t&#351;kler