B1 0 (Sıfır) dan büyük ise B2 ye yaz...

[nolcun]

Merhaba arkadaşlar;
Ekli çalışma kitabında açıklama var. Yardımcı olursanız sevinirim.
Kolay gelsin. Teşekkürler... :kafa:

 

[bedersu]

Merhaba,

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?

 

[nolcun]

Sayın bedersu;
B2,B3,B4 'e A11 hücresini atacak...

 

[Tarkan VURAL]

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

 

[nolcun]

Sinir olacağınıza yardımcı olsanız?????????? :hey:

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[nolcun]

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...

 

[nolcun]

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...

 

[nolcun]

b1 sıfırdan büyük ise b2 ye yaz

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:

 

[bedersu]

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

 

[nolcun]

önceki makroyu göremiyorum. bunu nasıl kayıt edeceğim.?

 

[danersin]

Ã?nceki kodları görememek. :?

@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.

http://www.excel.web.tr/viewtopic.php?t=4153

 

[Levent Menteşoğlu]

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.