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

yildirimm · 20 Haziran 2007

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 · 21 Haziran 2007

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 · 21 Haziran 2007

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İ.[A2])), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(Sİ.[B2]))
If X = 1 Then
Sİ.[B6] = WF.Subtotal(3, Sheets(X).[I5:I65536])
Sİ.[B7] = WF.Subtotal(9, Sheets(X).[J5:J65536])
Sİ.[B8] = WF.Subtotal(9, Sheets(X).[K5:K65536])
Sİ.[B9] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 2 Then
Sİ.[B11] = WF.Subtotal(3, Sheets(X).[I5:I65536])
Sİ.[B12] = WF.Subtotal(9, Sheets(X).[J5:J65536])
Sİ.[B13] = WF.Subtotal(9, Sheets(X).[K5:K65536])
Sİ.[B14] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 3 Then
Sİ.[B16] = WF.Subtotal(3, Sheets(X).[I5:I65536])
Sİ.[B17] = WF.Subtotal(9, Sheets(X).[J5:J65536])
Sİ.[B18] = WF.Subtotal(9, Sheets(X).[K5:K65536])
Sİ.[B19] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 4 Then
Sİ.[B21] = WF.Subtotal(3, Sheets(X).[I5:I65536])
Sİ.[B22] = WF.Subtotal(9, Sheets(X).[J5:J65536])
Sİ.[B23] = WF.Subtotal(9, Sheets(X).[K5:K65536])
Sİ.[B24] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 5 Then
Sİ.[B26] = WF.Subtotal(3, Sheets(X).[I5:I65536])
Sİ.[B27] = WF.Subtotal(9, Sheets(X).[J5:J65536])
Sİ.[B28] = WF.Subtotal(9, Sheets(X).[K5:K65536])
Sİ.[B29] = WF.Subtotal(9, Sheets(X).[L5:L65536])
ElseIf X = 6 Then
Sİ.[B31] = WF.Subtotal(3, Sheets(X).[I5:I65536])
Sİ.[B32] = WF.Subtotal(9, Sheets(X).[J5:J65536])
Sİ.[B33] = WF.Subtotal(9, Sheets(X).[K5:K65536])
Sİ.[B34] = WF.Subtotal(9, Sheets(X).[L5:L65536])
End If
Sheets(X).[A4].AutoFilter
End If
Next
Sİ.Select
Set Sİ = Nothing
Set WF = Nothing
Application.ScreenUpdating = True
MsgBox "BİLGİLER AKTARILMIŞTIR.", vbInformation
End Sub

yildirimm · 21 Haziran 2007

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 · 22 Haziran 2007

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

xxcell · 22 Haziran 2007

Dosyanız ektedir.

yildirimm · 22 Haziran 2007

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

xxcell · 25 Haziran 2007

yildirimm' Alıntı:
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 · 25 Haziran 2007

sayın xxcell yardımlarınız için tşkler