Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-11-2017, 07:50   #1
bursacem
Altın Üye
 
Giriş: 09/09/2012
Şehir: bursa
Mesaj: 106
Excel Vers. ve Dili:
2003
Varsayılan Düşeyara

Sayın Üstadlar;

ekli dosyada "rnd." çalışma sayfasında ki tabloda vardiya dilimlerin de(08-16,16-24,24/08) hangi tarihte o makinenin kaç randıman çalıştığı yer almaktadır. Buradaki randımanı "veri" çalışma sayfasındaki kesiştiği hücreye nasıl getirebiliriz?(kesişenler Makine No,Tarih ve Vardiya Dilimi)

Örnek olarak birkaç tanesini elle yazdım.

Şimdiden çok teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xlsx çalışma.xlsx (14.7 KB, 6 Görüntülenme)
bursacem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 08:37   #2
Vedat Özer
Uzman
 
Vedat Özer kullanıcısının avatarı
 
Giriş: 04/01/2010
Şehir: Antalya
Mesaj: 2,053
Excel Vers. ve Dili:
OFFICE 2007 PRO TR - Win7 X64
Varsayılan

Selamlar,

Ekteki dosyayı inceleyin.
Alternatif çözümler olabilir..

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub OZET()
    Range("j1:Q65536").ClearContents
        Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""
    
    sorgu = "transform SUM(RDN) select Grup_No,Makine_No,Tarih from [veri$] group by Grup_No,Makine_No,Tarih pivot VRD"
    
    Set rs = con.Execute(sorgu)
    Range("J2").CopyFromRecordset rs
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 10).Value = Replace(rs.Fields(i).Name, "_", " ")
    Next i
    
End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm OZET ÇALIŞMA.xlsm (25.3 KB, 9 Görüntülenme)
__________________
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

Forum Kuralları

vedatozer@outlook.com
Vedat Özer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 09:00   #3
bursacem
Altın Üye
 
Giriş: 09/09/2012
Şehir: bursa
Mesaj: 106
Excel Vers. ve Dili:
2003
Varsayılan

Hocam ilginiz için teşekkürler.

Fakat ben "rnd." sayfasında ki verilerin, "veri" sayfasında ki ilgili yerlere gelmesini istiyorum.

Örneğin ; "rnd"sayfasında yer alan H001 numaralı makinenin 08-16 Vardiya diliminde ve 15 kasım tarihine denk gelen sayının(87.7)

"veri" sayfasında ki H001 15 Kasım ve 08-16 vardiya dilimine gelenin karşılığına getirmek istiyorum.

Buradaki amaç personelin randımanını alabilmek için
bursacem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 09:10   #4
asimavi50
Destek Ekibi
 
Giriş: 13/10/2010
Şehir: Nevşehir
Mesaj: 149
Excel Vers. ve Dili:
2007 Türkçe
Varsayılan

Değerli kardeşim, normal düşeyara formülü ile yapılamaz çünkü aynı kodlar var... Alternatif olarak ekteki dosya işinizi görebilir.
Eklenmiş Dosyalar
Dosya Türü: xlsx Düşeyara.xlsx (17.0 KB, 10 Görüntülenme)
asimavi50 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 13:31   #5
Vedat Özer
Uzman
 
Vedat Özer kullanıcısının avatarı
 
Giriş: 04/01/2010
Şehir: Antalya
Mesaj: 2,053
Excel Vers. ve Dili:
OFFICE 2007 PRO TR - Win7 X64
Varsayılan

Selamlar,

Tam tersini yapmışım
Alternatif olarak aşağıdaki kodları kullanabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
Sub tabloo()
Dim a(), b(), S1 As Worksheet, S2 As Worksheet
Dim Say  As Long, X  As Long, Y As Long
Set S1 = Sheets("rnd."): Set S2 = Sheets("veri")
a = S1.Range("A1:f" & S1.Cells(Rows.Count, 1).End(3).Row).Value
ReDim b(1 To UBound(a) * 3, 1 To 5)
For Y = 3 To 5
    For X = 2 To UBound(a)
        Say = Say + 1
        b(Say, 1) = a(X, 1)
        b(Say, 2) = a(X, 2)
        b(Say, 3) = a(1, Y)
        b(Say, 4) = a(X, Y)
        b(Say, 5) = a(X, 6)
        
    Next X
Next Y
Application.ScreenUpdating = False
    S2.Range("A2:E" & Rows.Count).ClearContents
    If Say > 0 Then
        S2.[A2].Resize(Say, 5) = b
    End If
Application.ScreenUpdating = True
S2.Select
MsgBox "İşlem tamam...", vbInformation, Environ("Username")
End Sub
Eklenmiş Dosyalar
Dosya Türü: rar OZET ÇALIŞMA.rar (25.2 KB, 21 Görüntülenme)
__________________
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

Forum Kuralları

vedatozer@outlook.com
Vedat Özer Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 20:12


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden