Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 26-02-2017, 22:25   #1
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 17
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan Taslak Tablodaki Verileri Kaydetme

Merhaba
Excel çalışma kitabında günlük kullandığım tablodan kısa bir örnek ekledim Tabloyu günlük sabit olarak kullanıyorum ancak tabloya girdiğim verileri hergün toplam sayfasının ilgili tarihine manuel olarak giriş yapmak zorunda kalıyorum kısa özetini verdiğim tablo uzun olduğu için zaman kaybı olmaktadır. tablo içerisindeki veriler her gün güncelleşmektedir, günlük tabloya girdiğim verilerin otomotik olarak toplam sayfasının ilgili tarihine kayıt edilmesi için nasıl bir formül olabilir. yardımlarınızı bekliyorum.
saygılar
Eklenmiş Dosyalar
Dosya Türü: xlsx HESAP TABLOSU.xlsx (9.0 KB, 14 Görüntülenme)
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-02-2017, 22:50   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,768
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Bu şekilde deneyin.
İsim sırası sonradan değişmediği düşünüldü. İlave olabilir fakat eski isimlerin altından devam edecek diye düşündüm.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Kopyala()
    
    Dim St As Worksheet, son_sut As Integer, son_sat As Long

    Set St = Sheets("TOPLAM")
    
    Application.ScreenUpdating = False
    Sheets("TABLO").Select

    If WorksheetFunction.CountIf(St.Rows(1), Range("C1")) = 0 Then
        son_sut = St.Cells(1, Columns.Count).End(xlToLeft).Column + 1
        St.Cells(1, son_sut) = Range("C1")
        St.Cells(1, son_sut - 1).Copy
        St.Cells(1, son_sut).PasteSpecial xlPasteFormats, xlNone
        Application.CutCopyMode = False
    Else
        son_sut = WorksheetFunction.Match(Range("C1"), St.Rows(1), 0)
    End If
    
    son_sat = Cells(Rows.Count, "B").End(xlUp).Row
        
    Range("A3:B" & son_sat).Copy St.Range("A2")
    
    Range("C3:C" & son_sat).Copy St.Cells(2, son_sut)
        
    Application.ScreenUpdating = True
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-03-2017, 21:45   #3
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 17
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

Ömer Bey ilgilerinize teşekkür ederim.
formülü uygulayamadım lütfen taslak tabloya uygulama imkanımız varmı.
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-03-2017, 22:11   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,768
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alıntı:
nrtas tarafından gönderildi Mesajı Görüntüle
Ömer Bey ilgilerinize teşekkür ederim.
formülü uygulayamadım lütfen taslak tabloya uygulama imkanımız varmı.
Ektedir.

.
Eklenmiş Dosyalar
Dosya Türü: rar HESAP TABLOSU.rar (15.2 KB, 11 Görüntülenme)
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-03-2017, 21:43   #5
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 17
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

aslında istediğim formülü yeterince açıklayamamışım. aradığım formül "tabloda" günlük sıralama değişken olabiliyor "toplam" sayfasında ise sürekli sabit durumda olacak ancak "tablo" sayfasında her gün girdiğim veri "toplam" sayfasındaki ilgili tarihe kaydetsin. ilginize teşekür ederim
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-03-2017, 22:05   #6
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 17
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

Ömer Bey aktarma fonksiyonunu yeni fark ettim ellerinize sağlık istediğimde bu sadece tablodaki sıralama günlük değişken olabiliyor bunun çözüm varmı.
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-03-2017, 09:49   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,768
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Her seferinde yeni sütuna aktarma yapsın istiyorsunuz sanırım.

Bu şekilde deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Kopyala()
    
    Dim St As Worksheet, son_sut As Integer, son_sat As Long

    Set St = Sheets("TOPLAM")
    
    Application.ScreenUpdating = False
    Sheets("TABLO").Select

    son_sut = St.Cells(1, Columns.Count).End(xlToLeft).Column + 1
    St.Cells(1, son_sut) = Range("C1")
    St.Cells(1, son_sut - 1).Copy
    St.Cells(1, son_sut).PasteSpecial xlPasteFormats, xlNone
    Application.CutCopyMode = False
    
    son_sat = Cells(Rows.Count, "B").End(xlUp).Row
        
    Range("A3:B" & son_sat).Copy St.Range("A2")
    
    Range("C3:C" & son_sat).Copy St.Cells(2, son_sut)
        
    Application.ScreenUpdating = True
    
End Sub

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-03-2017, 00:58   #8
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 17
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

Ömer Bey göndermiş olduğunuz formülü uygulayamadım buton makroya buton ekleme konusunda bilgim kısıtlıdır. önceki uygulamalı gönderdiğiniz örnek benzeri bir makro lazım ancak örnekte sıralama değişken oluyor yani ana tabloda girdiğim bilgiler günlük değişiyor TABLO adlı sayfadaki isimler hergün yazılmıyor 250 kişi içerisinde günlük ortalama 15 kişi yazılıyor bunun için TABLO sayfası değişken TOPLAM sayfası ise sabit olacak.
TABLO sayfasına Günlük girdiğim isim ve karşısındaki verileri TOPLAM sayfasında bulup ve ilgili tarihe kaydedecek.
daha önce hazırladığınız makronun aynısı sadece TOPLAM sayfasındaki isimler değişken olabilecek.

ilgilerinize teşekkür ederim. iyi çalışmalar

ektekli dosyayı dikkate alma hatalı olmuş fourmdan silemedim
Eklenmiş Dosyalar
Dosya Türü: xlsm DENEME MAKROSU.xlsm (21.3 KB, 3 Görüntülenme)

Bu mesaj en son " 11-03-2017 " tarihinde saat 19:18 itibariyle nrtas tarafından düzenlenmiştir.... Neden: hatalı eklenti
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-03-2017, 19:26   #9
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 17
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

ekte güncel tabloyu ekledim toplam sayfasındaki isimler sabit hücrelerde duracak şekilde uygulanacak formül için yardımlarınızı bekliyorum.
iyi çalışmalar
Eklenmiş Dosyalar
Dosya Türü: xlsm HESAP TABLOSU DENEME1.xlsm (21.0 KB, 7 Görüntülenme)
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-03-2017, 19:37   #10
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,768
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Aynı isimden birden fazla olursa ne olacak? Yada olma ihtimali var mı?
Aynı tarihle işlem yapılırsa Toplam sayfasında aynı tarihli yeni bir sütun mu ekleyecek, yoksa eski aktarılan aynı tarihli veriler silinip yeniden mi yazacak.?

.
__________________
.
Ömer Ç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 16:26


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden