Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 08-06-2017, 17:31   #1
waytooraider
Altın Üye
 
Giriş: 22/05/2007
Şehir: istanbul
Mesaj: 171
Excel Vers. ve Dili:
2016 English
Varsayılan Renkten renge kadar toplama

Merhaba,
Ekteki 5000 satırlı excelde beyaz hücreler hariç,(dolgusuz),aynı renkli hücreden bir alttaki aynı renkli hücreye kadar toplam alması sağlanabilir mi?Çok utopik bir istek olduğunu biliyorum,yinede teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx data.xlsx (177.1 KB, 14 Görüntülenme)
waytooraider Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 07:33   #2
waytooraider
Altın Üye
 
Giriş: 22/05/2007
Şehir: istanbul
Mesaj: 171
Excel Vers. ve Dili:
2016 English
Varsayılan

Galiba çözümü yok..
waytooraider Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 08:30   #3
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

Bu renkli alanların yan sütunlarındaki bilgilerde ayrıştırıcı ifadeler varsa formüllerde kullanılabilir.
__________________
.
.
.

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 19-06-2017, 09:21   #4
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 154
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

merhaba ,

Ekli dosyanızı goremiyorum.. Tam isteginize gore bir cevap vermiyor olabilirim ama linkteki dosyayi bir inceler misiniz.. Tam istediginiz olmasa da isinizi kolaylasitracagindan eminim zira renkli hucrelere göre toplama yapan bir ornek..

https://yadi.sk/d/6qHjbBII3KFLNm
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 09:25   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,163
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Makro2()


ilk = 9
sut = 9
son1 = Cells(Rows.Count, sut).End(3).Row
For r = 10 To 137 'son1

aranan1 = Cells(r, sut).Interior.ColorIndex

If aranan1 = 24 Then
son = r - 1
Cells(ilk, sut).Value = "=SUM(I" & ilk + 1 & ":I" & son & ")"
ilk = son + 1
End If
Next

Cells(son + 1, sut).Value = "=SUM(I" & son + 2 & ":I" & son1 - 1 & ")"

Cells(son1, sut - 1).Value = "=SUM(I5:I" & son + 2 & ")"
MsgBox "işlem tamam"

End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 11:25   #6
waytooraider
Altın Üye
 
Giriş: 22/05/2007
Şehir: istanbul
Mesaj: 171
Excel Vers. ve Dili:
2016 English
Varsayılan

Halit Bey,kodunuzu çalıştıramadım... Immediate tarafında yapıştırdım olmadı.
Korhan Bey,yandaki stunlarda sadece malzeme tanımları,miktarları yazıyor.Metraj tablosu,İş yerinde dosya yüklyemeiyorum,IT izin vermiyor..Eve geçince ekleyeceğim.

Bu mesaj en son " 19-06-2017 " tarihinde saat 11:32 itibariyle waytooraider tarafından düzenlenmiştir....
waytooraider Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 11:37   #7
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,163
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

kodu bir modüle ekliyeceksiniz.

1 nolu mesajınızdaki dosyada çalışıyor.
ayrıca kodun çalışması için dosyanın uzantısı ya xls olacak yada xlsm olacak.
tabi makrolarda etkin olmalı
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 11:58   #8
waytooraider
Altın Üye
 
Giriş: 22/05/2007
Şehir: istanbul
Mesaj: 171
Excel Vers. ve Dili:
2016 English
Varsayılan

Sub end sub koydum oldu elinize sağlık

Bu mesaj en son " 19-06-2017 " tarihinde saat 12:03 itibariyle waytooraider tarafından düzenlenmiştir....
waytooraider Ç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:38


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