Sıra No Eklemek ?

[nihatjeoloji]

Selam Arkadaşlar

B1 = Ali yazdığım zanam A1 = 1 eklensin
B2 = Veli yazdığım zanam A2 = 2 eklensin
B3 = boş
B4 = boş
B5 = boş
B6 = Efem yazdığım zanam A6 = 3 eklensin

bu mümkün'mü acaba ???

Teşekkürler

 

[bedersu]

sayın nihatjeoloji,

bu tabi ki mümkün ama anlamadığım bir nokta var.A1'e Ali yazdığınızda Ali silinip yerine 1 mi yazılacak yoksa B1'e mi 1 yazılacak?ayrıca bu makroyla mı yoksa Worksheet'e yazılarak mı yapılacak?Bunlara karar verin ve foruma söyle bir göz atın.bunların hepsinin cevabı var.

CountA ile dolu satırları saydırıp isimlerin yanlarına ya da aynı hücreye numara verebilirsiniz.Bir göz atın foruma.Böylece daha kalıcı olacaktır.Atalarımız ne demiş:

"Balık verme,balık tutmayı öğret." Değil mi?

 

[nihatjeoloji]

syn bedersu
inanın ki önce arıyorum ve buldukarımada tek tek bakıyorum.

fakat benim istediğim yok. şöyle anlatayım

(B1)hüçresinden (B20)hüçresine kader.
Ã?R:1

B9 = her hangi İLK kelime girdiğim zaman (A9)hüçresi eşit (1) olacak. daha sonra
B10 = hüçresini boş bıraktım
B11 = hüçresini boş bıraktım
B12 = her hangi İKİ'YİNCİ bir kelime girdiğim zaman (A12)hüçresi eşit (2) olacak.


Ã?R:2

B3 = her hangi İLK kelime girdiğim zaman (A3)hüçresi eşit (1) olacak. daha sonra
B4 = hüçresini boş bıraktım
B5 = hüçresini boş bıraktım
.....................................
.....................................
...................................
B18 = her hangi 2'YİNCİ bir kelime girdiğim zaman (A18)hüçresi eşit (2) olacak.
B19 = her hangi 3'CÜ bir kelime girdiğim zaman (A19)hüçresi eşit (3) olacak.
B20 = her hangi 4'CÜ bir kelime girdiğim zaman (A20)hüçresi eşit (4) olacak.

 

[bedersu]

merhab,

şu kodları bir deneyin:

Sub auto_open()
Application.OnKey "~", "asagi"
End Sub
Sub auto_close()
Application.OnKey "~"
End Sub
Sub asagi()
ActiveCell.Offset(1, 0).Select

For i = 1 To 20
a = WorksheetFunction.CountA(Range("A1:A" & i))
If Cells(i, 1) <> "" Then
Cells(i, 2) = a
End If
Next i
End Sub

 

[abazya]

Test 3 ün 2. sayfasında vardı

 

[nihatjeoloji]

syn bedersu AND syn abazya

evet bu çok çok sağolun

 

[nihatjeoloji]

syn abazya

benim (B1)hüçresinden (B20)hüçresine kader şü formüler var
=EÐER(EHATALIYSA(İNDİS('A.............)

sizin verdiğiniz çözüm bu formüller olunca çalışmıyor neden acaba ???

 

[abazya]

Ã?nce sayı olarak istedinSN: Raider cevabladı bendeSN: Raiderin cevabının 2 sayfasına bunu sayı+harf + formül kabul edecek şekilde bunu yapabildim ve şunu da söylüyorum Ya formüllerini tek tek gir yada formül çubuğunu dene olması gerekir cünkü ben denedim oldu

ali veli dedin arkadan fonksiyon Kime göre elbise istedin ona göre söyle ona kumaş kesip yapalım her ne hikmetse sonradan hep ya büyük yada dar geliyor yada örneğini tam olarak koy

 

[abazya]

Bu da formül eklenmiş örneği

 

[nihatjeoloji]

SYN abazya

çok teşekkürler

bir ricem olacak bilmem artık siz ne düşünürsünüz
her sorulan soruya
1- hüçre formülü ile yazılması
2- kod ile yazılması

cevablansa daha iyi olmazmı ???

 

[abazya]

Yanlış anlamadım ise İyi olur Akşam yatarken sütünüde getirelim

Çocuklarımla pikniğe gidiyorum sorularına cevap veremiyeceğim için üzgünüm