Tek Hüçre Ve Silinmeyen Sayılar ???

Katılım
16 Nisan 2005
Mesajlar
353
Selam arkadaşlar

Ã?R:

( A1 )hüç. veya ( A2 )hüç. = 3 yazdığımda sonuç ( D1 )hüç.'nde (3) olarak silinmeden dursun

( A1 )hüç. veya ( A2 )hüç. = 12 yazdığımda sonuç ( D2 )hüç.'nde (12) olarak silinmeden dursun

( A1 )hüç. veya ( A2 )hüç. = 56 yazdığımda sonuç ( D3 )hüç.'nde (56) olarak silinmeden dursun


( A1 )hüç. veya ( A2 )hüç. = 60 yazdığımda sonuç ( D4 )hüç.'nde (60) olarak silinmeden dursun
.
.
.
.


eğer (A1) veya (A2) sayı girmediğim zaman sonuçlanacak hüçre boş olarak dursun

bu olabilirmi ??
Teşekkürler
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
D1 hücresine aşağıdaki formülü yazın. Diğer hücrelerde de aynı mantığı uygulayabilirsiniz.

=EÐER(YADA(A1=3;A2=3);3;"")
 
Katılım
16 Nisan 2005
Mesajlar
353
syn leventm sağolun

fakat
Bunu biliyorum fakat sorduğum bu değil

anlatıyorum:
Sayılar sabit değil yukarıda örnek olarak verdim. yani sayıları ben yazıyorum buda 9 olabilir veya 34 olabilir veya her hangi bir sayı olabilir.

(A1)hüç.'ne her hangi bir sayı girdiğimde. aynı sayı ( D1 )hüç.'ne eklensin .VE GENE
(A1)hüç.'ne her hangi 2'nci bir sayı girdiğimde. aynı sayı ( D2 )hüç.'ne eklensin...
ve
ve
ve

ilk girdiğim sayı ( D1 )hüç'nde sabit ve silinmeden
ve girdiğim 2'nci sayı ( D2 )hüç'nde sabit ve silinmeden
ve
ve
ve eğer (A1)hüç'si boş. yani her hangi bir sayı girmedisek (D1, D2,....)hüçreleri boş kalacak

bu konuda yardımcı olursanız sevinirim
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu sayfanın kod sayfasına yazın ve A1 hücresine değer yazarak deneyin.

[vb:1:aadd4f3185]Private Sub Worksheet_Change(ByVal Target As Range)
say = WorksheetFunction.CountA(Columns(4))
If Target.Address = "$A$1" Then Cells(say + 1, 4) = [a1]
End Sub
[/vb:1:aadd4f3185]
 
Katılım
16 Nisan 2005
Mesajlar
353
syn leventm
bu mükemmel çok çok sağolun

son iki şey
1- kendi sayfasında başka bir kot var bunu yeni bir ( modul ) 'de yasam olurmu

2- ve yaklaşık 10-15 kere ayrı ayrı yerlerde kulanacam. tümü için tek bir modul'de alt alta yasam olurmu. ?? yoksa ayrı ayrı 10-15 modul'demi yazmak gerekiyor...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ayrı module gerek yok aynı kodun içindede tanımlayabilirsiniz.
 
Katılım
16 Nisan 2005
Mesajlar
353
syn leventm
ne olur kusura bakmayın

1-
( A1 )hüç'sinde ((=H20)) bu formül var. bu formül ile sayı ekleniyor. visual basic kodu bunu neden görmiyor ?? :?

2-
başka bir hüçredede bu formül ile sayı alıyorum
=EÐER(EHATALIYSA(İNDİS(A!$A$5:$L$75;KAÇINCI($C$29;A!$A$5:$A$75;0);12))=DOÐRU;"";(İNDİS(A!$A$5:$L$75;KAÇINCI($C$29;A!$A$5:$A$75;0);12)))



3- bu kodu yeni bir modulde nasıl yazabilirim ??

Private Sub Worksheet_Change(ByVal Target As Range)
say = WorksheetFunction.CountA(Columns(29))
If Target.Address = "$L$29" Then Cells(say + 26, 29) = [l29]
say = WorksheetFunction.CountA(Columns(30))
If Target.Address = "$L$30" Then Cells(say + 26, 30) = [l30]
End Sub
 
Üst