B2,B3,B4 'e ne atacağını söylerseniz yardımcı olmaya çlışırım.Her enter'da bu hücrelere de mi 11,yani o hücrelerin toplamını atacak?Yoksa farklı bir toplam mı atacak?
Sorularını dosya içerisinde yazıpta soranlara, emek harcanıp verilen cevapları, nasıl çalıştıklarını anlamadan hazır lokma gibi yutmak isteyenler bir sözüm var:
NEDEN SORULARINIZI FORUMDA SORMAK YERINE DOSYALARINIZIN İÇİNE GÃ?MÜYORSUNUZ?????? BURADA SIZLERE YARDIM ETMEK İSTEYEN ARKADAÃLARA KENDİ İÃİNİZİ Mİ YAPTIRIYORSUNUZ???
Kodlar nasıl yazılır, yazılan kodlar nasıl çalışır, nerelerde ne kod yazmalı, bunları forumda açık açık sorsanız da herkes dosya indirmek zorunda kalmadan okusa daha iyi olmaz mı?
Fazla kırıcı olduysam kusuruma bakmayın ama sinir oluyorum yaaawwww
Sayın leventm hocam;
1. 2. 3. ... işlemleri b1 b2 b3 b4 e atacak. b2 ye atarken b1. b3 e atarken b2 ... yani öncekiler sabit kalacak. bir de şu an yaptığınız toplam(a11) değiştiği zaman çalışmıyor. teşekkürler...
leventm,
Sayın leventm hocam;
1. 2. 3. ... işlemleri b1 b2 b3 b4 e atacak. b2 ye atarken b1. b3 e atarken b2 ... yani öncekiler sabit kalacak. bir de şu an yaptığınız toplam(a11) değiştiği zaman çalışmıyor. teşekkürler...
Sayın leventm hocam;
1. 2. 3. ... işlemleri b1 b2 b3 b4 e atacak. b2 ye atarken b1. b3 e atarken b2 ... yani öncekiler sabit kalacak. bir de şu an yaptığınız toplam(a11) değiştiği zaman çalışmıyor. teşekkürler...
Çalışma kitabını ekledim. :kafa:
mehaba,
kodları şu şekilde değiştirirseniz sanırım istediğiniz gibi olur:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = WorksheetFunction.CountA(Range("B:B"))
If Selection.Cells.Address <> "$A$11" Then Exit Sub
If [b1] = 0 And WorksheetFunction.Sum([b1:b11]) = 0 Then
[b1] = [a11].Value
Exit Sub
End If
Cells(a + 1, 2) = [a11].Value
End Sub
@Tarkan VURAL biraz sert ifade etmiş ama ben şöyle izah etmeye çalışayım, excel makrolar ile çalışmanız gereken dosyalarınız var ise en azından çok temel birkaç şeyi öğrenmek zorundasınız , en azından kodu editöre alıp yapıştırabilirsiniz.
Alt F11 ile vb editörünü açın, daha sonra sol üst köşede bulunan bölümde(project-vba project) sayfa1'i çift tıklarsanız,kod sayfası açılacaktır. Mevcut kodun yerine yukarıdaki kodu yazarak deneyebilirsiniz.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.