• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tarih aralığı

M

manisali50

Banned
Katılım
29 Ekim 2010
Mesajlar
471
Excel Vers. ve Dili
Excel2003
Arkadaşlar tekrar merhaba..
Ekteki dosyada geniş biçimde izah ettiğim gibi,iki tarih aralığındaki bakım analizlerini gösterir çizelge konusunda yardımlarınızı rica ediyorum..
Şimdiden teşekkkürler
 

Ekli dosyalar

İhsan hocam..Bu dosyada sizin de katkınız büyük..Yardımlarınızı bekliyorum
 
Merhaba,

Sayfa1 de C sütununa girdiğiniz veriler tarih değil. Önce bu verileri düzeltmeniz gerekir ki formülü ona göre düzenleyebilelim..

.
 
Farketmedim

Üstadım merhaba...
Öncelikle ilgine teşekkür ediyorum..
Hatayı farketmedim inan ki..
Özür diliyor,düzeltip tekrar yolluyorum..
 

Ekli dosyalar

H1:

Kod: 
=TOPLA.ÇARPIM((Sayfa1!J2:J109=G1)*(Sayfa1!C2:C109>=I2)*(Sayfa1!C2:C109<=J2))
--------------------------------------------------------------------------------------------------------
A8 hücresine yazarak dizi formülüne çevirdikten sonra B8 hücresine kopyalayınız.

Kod: 
=EĞER(SATIRSAY(A$8:A8)>$H$1;"";İNDİS(Sayfa1!A$2:A$109;KÜÇÜK(EĞER((
Sayfa1!$J$2:$J$109=$G$1)*(Sayfa1!$C$2:$C$109>=$I$2)*(Sayfa1!$C$2:$C$109<=$J$2);
SATIR(Sayfa1!$J$2:$J$109)-SATIR(Sayfa1!$J$2)+1);SATIRSAY(A$8:A8))))
--------------------------------------------------------------------------------------------------------

C8 hücresine yazarak dizi formülüne çevirdikten sonra D8 hücresine kopyalayınız.

Kod: 
=EĞER(SATIRSAY(D$8:D8)>$H$1;"";İNDİS(Sayfa1!D$2:D$109;KÜÇÜK(EĞER((
Sayfa1!$J$2:$J$109=$G$1)*(Sayfa1!$C$2:$C$109>=$I$2)*(Sayfa1!$C$2:$C$109<=$J$2);
SATIR(Sayfa1!$J$2:$J$109)-SATIR(Sayfa1!$J$2)+1);SATIRSAY(D$8:D8))))
Daha sonra A8:F8 arasını seçerek alt satırlara kopyalarsınız..

Tüm sayfaları seçip sayfa1'i pasif yapıp bu işlemleri uygularsanız tüm sayfalarda işlemi aynı anda yapmış olursunuz..

.
 
Hocam eminim muhteşem olmuştur..Ancak bu sorun benim geçen de karşıma çıkmıştı ..Hallettim ama nasıl hallettiğimi unuttuğum için tekrar soruyorum..
A sütununa kopyalayıp dizi formülüne çevirdikten sonra aşağıya doğru çekince "Dizinin bir parçasını değiştiremezsiniz" diye bir uyarı çıkıp işlemi yapmıyor.. Yardımcı olur musunuz?
 
Önce formülü tek bir hücreye girin ve dizi formülüne çevirin daha sonra kopyalama işlemi yapın.

.
 
Hocam tekrar merhaba..İlgine teşekkür ediyorum ama hiç çalışmadı..Hiç aktarma yapmıyor..Daha öhce size yolladığım örnekte aktarma yapıyordu,benim isteğim Sayfa1 hariç diğer tezgah sayfalarının A6 hücresinde yazan tarih aralığına göre Sayfa1'den aktarması
 
Sayın Ömer Hocam..
İsteğiniz üzere bilgileri aldım dosyayı da ekledim..
Dosyanın kullanımı şöyle :
1) "Arıza bild.for.dold.sayfası" na bakımı yapılacak bilgileri girip,"Arıza Bildirim Formuna Aktar" butonuna bastıktan sonra bu bilgiler "Arıza Bildirim Formu" sayfasına aktarılıyor..
2)Bu sayfa kontrol edilip yazıcı çıktısını aldıktan sonkar "AKTAR" butonu ile ilgili tezgah sayfalarına (Örneğin AZ 1,AZ 2 gibi) aktarılıyor..
3) Sonra da foruma ilk eklediğim "Tezgah Bakım Analizi" dosyasının "Sayfa1" sayfasındaki "Analizleri Listele" butonuna basıp,"Tezgah Sicil Kartı ve Arıza Bildirim Formu" dosyasında toplanan bilgileri bu sayfaya aktarıyrum
4) "Satırları Renklendir/Renkleri Sil" butonu ile satırların her tezgahı belirleyen renklere boyanmasını sağlıyorum
5) "Tezgah sayfalarına AKTAR" buton ile de bu klasör içindeki ilgili tezgah bölüm sayfalarına aktarılmasını sağlıyorum..

Merak ve heyecanla bekliyorum

Şimdiden teşekkürler
 

Ekli dosyalar

Burdaki dosya ile çözüm ürettiğim dosya arasında bir bağlantı kuramadım.
 
Hocam Tezgah bakım analizleri kitabından şöyle bir kod ile bu kitaptan bilgileri alıyorum..
Option Explicit

Sub TEZGAH_ARIZALARINI_LİSTELE()
Dim K1 As Workbook, K2 As Workbook, S1 As Worksheet, Sayfa As Worksheet
Dim X As Integer, Y As Integer, VERİ1 As String, VERİ2 As String, SÜTUN As Byte

Application.ScreenUpdating = False

Set K1 = ThisWorkbook
Set S1 = K1.Sheets("Sayfa1")
Set K2 = Workbooks.Open(ThisWorkbook.Path & "\Tezgah sicil kartı ve Arıza bildirim formu.xls")
SÜTUN = 4
S1.Range("C2:I500").ClearContents

K1.Activate

For X = 2 To S1.Range("A500").End(3).Row
VERİ1 = UCase(Replace(Replace(S1.Cells(X, 1), "i", "İ"), "ı", "I"))
For Each Sayfa In K2.Worksheets
For Y = 10 To Sayfa.Cells(500, 3).End(3).Row
If Sayfa.Cells(Y, 3) <> "" Then
VERİ2 = UCase(Replace(Replace(Sayfa.Cells(Y, 7), "i", "İ"), "ı", "I"))
If InStr(1, VERİ2, VERİ1, vbTextCompare) > 0 Then
S1.Cells(X, 3) = Sayfa.Cells(Y, 3)
S1.Cells(X, 3).NumberFormat = "00""/""00""/""""2010"""
S1.Cells(X, SÜTUN) = Sayfa.Range("I5")
SÜTUN = SÜTUN + 1
End If
End If
Next
Next
SÜTUN = 4
Next

K2.Close False

Set S1 = Nothing
Set K1 = Nothing
Set K2 = Nothing

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.Şerif Ali ŞENSAZLI.", vbInformation
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As String
On Error Resume Next
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
sat = "A" & Target.Row & ":J" & Target.Row
Select Case Target
Case "": Range(sat).Interior.ColorIndex = 0

Case Is = "BORU BÖLÜMÜ": Range(sat).Interior.ColorIndex = 36
Case Is = "CM TEZGAHLARI": Range(sat).Interior.ColorIndex = 38
Case Is = "CT TEZGAHLARI": Range(sat).Interior.ColorIndex = 34
Case Is = "KALIPHANE": Range(sat).Interior.ColorIndex = 39
Case Is = "KAYNAK": Range(sat).Interior.ColorIndex = 35
Case Is = "TESTERE": Range(sat).Interior.ColorIndex = 33
Case Is = "ÜNİVERSAL": Range(sat).Interior.ColorIndex = 40

End Select

End Sub
 
Tamam da bu kodlarla benim yazdığım tarih aralığına göre veri alma arasında bağlantı kuramadım..

.
 
Allah Allah..Şaüşırdım ben de hocam..
S1.Cells(X, 3).NumberFormat = "00""/""00""/""""2010"""
dizesindeki tarih formatında bir terslik olabilir mi?
 
Aktarım kodundan bahsediyorsunuz.

İlgili satır yerine;

Kod: 
S1.Cells(X, 3) = CDate(Application.Text(S1.Cells(X, 3), "00-00"))

Bu şekilde yazıp denermisiniz.

Eğer veriler tarih formatında gelirse istediğiniz olacaktır..

.
 
Yok hocam ...Sadece en başta bulunan 414 SERVO ALARM sütununun tarih kısmına 02/04/2010 tarihi yazıp Type Mismatch hatası verdi
 
Kodları detaylı inceleme fırsatım yok. Bu şekilde olmuyorsa Sayfa1 de O sütunu yardımcı hücre kullanarak kodları bozmadan yeni bir dosya ile sorun çözülebilir.

Eki inceleyiniz..
 

Ekli dosyalar

Bu son yolladığınız dosya hiç çalışmıyor hocam..400 hatası veriyor
 
#1 nolu mesajdaki eklediğiniz dosyanın C sütunundaki tarih formatını bozmadan istediğiniz sayfalara formül girdim. Bunun dışında farklı birşey yapmadım.

.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst