Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-06-2017, 14:43   #1
huseyinvurkan
 
Giriş: 12/08/2007
Şehir: İstanbul
Mesaj: 191
Excel Vers. ve Dili:
2003 türkçe
Varsayılan Olmayan sayfadan veri alma

Şablona göre açılacak sayfalardan veri almak istiyorum. Şöyle ki:

Kulüpler sayfası ana sayfam. Bu sayfada kulüp adlarını yazıp enter yapınca o isimdeki kulüp sayfası oluşturuluyor.

Oluşturulan Bu sayfaların E41:M41 aralığındaki net toplamlarını ya dinamik olarak veya bir düğme aracılığıyla KULÜPLER sayfamdaki ilgili yerlere nasıl alabilirim acaba. Daha önceki bir çalışmamda Sayın Muygun :

Sub sayfa_toplamlarını_al()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("AİDAT").Range("d3:g65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("AİDAT")
For i = 3 To s1.Range("A65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
If s1.Cells(i, "a") = s2.Cells(1, "b") Then
s1.Cells(i, "d") = s2.Cells(2, "h") '1.dönem yazılıyor
s1.Cells(i, "e") = s2.Cells(2, "I") '2.dönem yazılıyor
s1.Cells(i, "f") = s1.Cells(i, "d") - s1.Cells(i, "e") '2 dönem toplamı
's1.Cells(i, "g") = s1.Cells(i, "f") / s1.Cells(i, "b") 'kişi sayısına göre yatan miktarın ortalaması alınıyor
End If
Next i
Call verileri_sırala
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Şeklinde bir kod yazarak benzer bir sorunu çözmüştü. Bu kod yeni çalışmama uyarlanabilir mi acaba?
Şimdiden Teşekkürler.


http://www.dosya.tc/server8/dnz8c9/K...AT_v3.xls.html
huseyinvurkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 23:00   #2
huseyinvurkan
 
Giriş: 12/08/2007
Şehir: İstanbul
Mesaj: 191
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Sayın Hocalarım, mesajı güncellemek için :

Sub sayfa_toplamlarını_al()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("KULÜPLER").Range("d2:L65536").ClearContent s
Set s1 = ThisWorkbook.Worksheets("KULÜPLER")
For i = 2 To s1.Range("B65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, 1).Value)
If s1.Cells(i, "D") = s2.Cells(1, "L") Then
s1.Cells(i, "d") = s2.Cells(41, "E")
s1.Cells(i, "e") = s2.Cells(41, "F")
s1.Cells(i, "f") = s2.Cells(41, "G")
s1.Cells(i, "G") = s2.Cells(41, "H")
s1.Cells(i, "H") = s2.Cells(41, "I")
s1.Cells(i, "I") = s2.Cells(41, "J")
s1.Cells(i, "J") = s2.Cells(41, "K")
s1.Cells(i, "K") = s2.Cells(41, "L")
s1.Cells(i, "L") = s2.Cells(41, "M")

's1.Cells(i, "g") = s1.Cells(i, "f") / s1.Cells(i, "b") 'kişi sayısına göre yatan miktarın ortalaması alınıyor
End If
Next i
'Call verileri_sırala
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub


yukarıdaki kod üzerinde biraz uğraştım. Veriler geliyor ama yerli yerine oturmuyor. Sadece 4. satıra 2. satırın verileri geliyor. Ne yapmam lazım. Yardım eder misiniz
huseyinvurkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 14:54   #3
huseyinvurkan
 
Giriş: 12/08/2007
Şehir: İstanbul
Mesaj: 191
Excel Vers. ve Dili:
2003 türkçe
Varsayılan Ustalar erkenden tatile çıktı galiba

Bu kod veya işimi görecek başka bir kod konusunda hala yardım bekliyorum. Ramazandan mı nedir sabırsızlanıyorum
huseyinvurkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 15:13   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,107
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

KULÜPLER isimli sayfanızdaki formülleri revize edin.

D2;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞERHATA(EĞER(DOLAYLI("'"&$B2&"'!"&ADRES(41;SÜTUN()+1))="";"";DOLAYLI("'"&$B2&"'!"&ADRES(41;SÜTUN()+1)));0)
Bu formülü yana ve alt hücrelere doğru sürükleyin.

Sonra sayfanızın arka planında çalışan sayfa ekleme kodunu aşağıdaki gibi değiştirin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo bitti
    Dim Sayfa As String
    If ActiveSheet.Name <> "KULÜPLER" Then
        Sheets("KULÜPLER").Select
    Else
        Sayfa = Target.Value
        If Not SayfaVarMi(Sayfa) Then
            If Sayfa <> "" Then Sheets(Sayfa).Select
            End If
            Range("D" & Target.Row & ":L" & Target.Row).FillDown
        End If
    Exit Sub
bitti:
    If Intersect(Target, Sheets("KULÜPLER").[B2:B55]) Is Nothing Then Exit Sub
    If Not SayfaVarMi(Sayfa) Then
        Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Target.Value
        MsgBox Target.Value & " Sayfası Açıldı......"
        Sheets("KULÜPLER").Select
        Range("D" & Target.Row & ":L" & Target.Row).FillDown
    End If
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 15:51   #5
huseyinvurkan
 
Giriş: 12/08/2007
Şehir: İstanbul
Mesaj: 191
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Sayın Korhan Bey neden bilmiyorum ama verdiğiniz kod

If Not SayfaVarMi(Sayfa) Then

satırında hata verdi.

Şayet dinamik olamıyorsa bir düğmeye bağlı kod da olabilir

Bu mesaj en son " 20-06-2017 " tarihinde saat 16:12 itibariyle huseyinvurkan tarafından düzenlenmiştir....
huseyinvurkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 16:09   #6
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,107
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Hüseyin Bey,

Sadece Private Sub Worksheet_Change(ByVal Target As Range) kodunu yenileyin. Diğer fonksiyon kodları kalsın.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-06-2017, 00:22   #7
huseyinvurkan
 
Giriş: 12/08/2007
Şehir: İstanbul
Mesaj: 191
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Sayın Korhan Hocam Emeğine sağlık tam istediğim gibi çalıştı. Teşekkür ederim. Dosyayı tamamlamak için ihtiyaç olursa inşallah yine yazarım.
huseyinvurkan Ç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 00:42


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden