Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Site ile ilgili... > Öneriler Eleştiriler Görüşler
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Öneriler Eleştiriler Görüşler Site içerisinde görmek istediklerinizi veya görmek istemediklerinizi buraya yazabilirsiniz. Site hakkındaki görüşlerinizi de buraya yazabilirsiniz.

Özel Arama


Yanıtla
 
Konu Araçları Görünüm Modları
Eski 04-06-2017, 13:30   #1
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 275
Excel Vers. ve Dili:
2003 türkçe
Varsayılan Döngü Hakkında

Merhaba arkadaşlar.

[b65000].End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1) = ""
ActiveCell.Offset(0, 2) = ""
ActiveCell.Offset(0, 3) = ""
ActiveCell.Offset(0, 4) = ""
ActiveCell.Offset(0, 5) = ""
ActiveCell.Offset(0, 6) = ""

ActiveCell.Offset(0, 1) = WorksheetFunction.Sum(Range("c2:c65000").Value)
ActiveCell.Offset(0, 2) = WorksheetFunction.Sum(Range("d2:d65000").Value)
ActiveCell.Offset(0, 3) = WorksheetFunction.Sum(Range("e2:e65000").Value)
ActiveCell.Offset(0, 4) = WorksheetFunction.Sum(Range("f2:f65000").Value)
ActiveCell.Offset(0, 5) = WorksheetFunction.Sum(Range("g2:g65000").Value)
ActiveCell.Offset(0, 6) = WorksheetFunction.Sum(Range("h2:h65000").Value)

Yukarıda ayrı ayrı iki kod bloğu var. Yaptığım her döngüde hata verdi kesinlikle çalışmadı. Yardımcı olabilir misiniz.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 14:52   #2
dalgalikur
Destek Ekibi
 
dalgalikur kullanıcısının avatarı
 
Giriş: 04/06/2006
Mesaj: 1,118
Excel Vers. ve Dili:
2007-2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveCell.Offset(0, 1) = WorksheetFunction.Sum(Range("c2:c65000").Value)
şeklinde olan satırları aşağıdaki şekilde değiştirmelisin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveCell.Offset(0, 1) = WorksheetFunction.Sum("c2:c65000")
diğer sorun hakkında fikrim yok. Ama eğer dosyanızı eklerseniz sorunu çözebiliriz.
dalgalikur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 16:28   #3
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 275
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Teşekkürler.

Dosyayı ekliyorum.

Her iki kod bloğu da döngü ile olacak.
Eklenmiş Dosyalar
Dosya Türü: xlsm ÖRNEK111.xlsm (29.3 KB, 5 Görüntülenme)
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 17:40   #4
dalgalikur
Destek Ekibi
 
dalgalikur kullanıcısının avatarı
 
Giriş: 04/06/2006
Mesaj: 1,118
Excel Vers. ve Dili:
2007-2013
Varsayılan

O kodlar yerine aşağıdakini kopyalayın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton2_Click()
    Dim Bak As Long
    [b65000].End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    For Bak = 1 To 6
        ActiveCell.Offset(0, Bak) = WorksheetFunction.Sum(Range("c2:c65000").Value)
    Next
End Sub
dalgalikur Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 19:35   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,476
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
ahmedummu tarafından gönderildi Mesajı Görüntüle
Merhaba arkadaşlar.

[b65000].End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1) = ""
ActiveCell.Offset(0, 2) = ""
ActiveCell.Offset(0, 3) = ""
ActiveCell.Offset(0, 4) = ""
ActiveCell.Offset(0, 5) = ""
ActiveCell.Offset(0, 6) = ""

ActiveCell.Offset(0, 1) = WorksheetFunction.Sum(Range("c2:c65000").Value)
ActiveCell.Offset(0, 2) = WorksheetFunction.Sum(Range("d2:d65000").Value)
ActiveCell.Offset(0, 3) = WorksheetFunction.Sum(Range("e2:e65000").Value)
ActiveCell.Offset(0, 4) = WorksheetFunction.Sum(Range("f2:f65000").Value)
ActiveCell.Offset(0, 5) = WorksheetFunction.Sum(Range("g2:g65000").Value)
ActiveCell.Offset(0, 6) = WorksheetFunction.Sum(Range("h2:h65000").Value)

Yukarıda ayrı ayrı iki kod bloğu var. Yaptığım her döngüde hata verdi kesinlikle çalışmadı. Yardımcı olabilir misiniz.
kod

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

sayfa = "Sayfa1" 'ActiveSheet.Name
son = Worksheets(sayfa).Cells(Rows.Count, 2).End(3).Row

For i = 3 To 8
Sheets(sayfa).Cells(son + 1, i).Value = WorksheetFunction.Sum(Sheets(sayfa).Range(Sheets(sayfa).Cells(2, i), Sheets(sayfa).Cells(son, i)).Value)
Next i
End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-06-2017, 09:24   #6
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 275
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Çok teşekkürler arkadaşlar. Ellerinize sağlık.

Activecell.Offset(0,-1)MergeCells=True

Aktif hücre ile bir solundaki iki hücreyi birleştirmek istiyorum. Yukarıdaki kodu denedim olmadı. Bunun içinde yardımcı olursanız sevinirim.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-06-2017, 10:01   #7
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,001
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If ActiveCell.Column > 1 Then Range(ActiveCell, ActiveCell.Offset(0, -1)).MergeCells = True
Şeklinde deneyiniz.
__________________
Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 05-06-2017, 10:09   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,476
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alternatif kod

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
sat = ActiveWindow.RangeSelection.Row
sut = ActiveWindow.RangeSelection.Column
If sut > 1 Then Range(Cells(sat, sut - 1), Cells(sat, sut)).Merge
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-06-2017, 10:19   #9
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 275
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Halit Bey çok teşekkür ederim. Ellerine sağlık.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-06-2017, 10:34   #10
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 275
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Merhaba,

Halit bey, kusura bakmayın aktif satırın bir alt satırı olacaktı. Alternatif olarak gönderdiğiniz ikinci kod aktif satırın alt satırı birleştiriliyor fakat ikinci bir kayıt yapılırken birleştirilen hücrelerin tekrar çözülmesii gerekiyor. İlk gönderdiğiniz kodu, Aktif satırın bir alt satırının birleşmesi ve tekrar çözülmesi için gönderirseniz sevinirim. Tabi mümkünse.
ahmedummu Ç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 21:23


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- 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- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden