Hücrelerde Standart Artış Sağlamak

[voyager52]

Sorunum şu şekilde;

Örneğin A1 hücresini D1 hücresine eşitliyorum. Yani A1 hücresine =D1 yazıyorum.
Yalnız şöyle bir artış sağlamam gerekiyor ki bu olmuyor;
A1=D1
A101=D2
A201=D3
A301=D4 vb. bir artış. Yani A 100 artarken D 1 artacak. Diğer otomatik formüllemelerin hepsinde işime yaramayan şekilde A101=D101 olmakta.

Bunun dışında bunu 10 Bin kez yapmam gerekmese, 100-200 gibi bir rakam olsa 10 tane yapar, bu onluyu kopyala olarak halladerdim fakat olmuyor. Bunu sağlayan bir durum gerekli bana.

 

[Saban Sertkaya]

Şu kodu kullanabililrsiniz. D sütununda var olan veri kadar istediğiniz işlemi yapar.

Sub Düğme2_Tıklat()
b = 1
For a = 1 To [D1048576].End(xlUp).Row * 100 Step 100
If a > 1048576 Then
MsgBox "Sayfanın sonuna geldiniz. İşlem sonlandırılıyor.", vbCritical, "   SAYFADAKİ SATIR SAYISI AŞILDI"
Exit Sub
End If
Cells(a, 1) = Cells(b, 4)
b = b + 1
Next a
End Sub

 

[voyager52]

Hocam bu şekilde macro stili ile değil, normal formülleme ile arıyorum. Yani böyle basit bir şeyin formül kodu olmaması ilginç.

Ayrcı açık konuşmak gerekirse makro bilgim yok, o düğmeyi nasıl yaparım ona dair bile bir bilgim yok o yüzden düz formülleme arıyorum.

 

[ÖmerBey]

Merhaba, aşağıdaki formülü deneyiniz.

=İNDİS(D:D;NSAT((SATIR()-1)/100)+1)

 

[voyager52]

Çok teşekkür ederim )) Bu kod tam olarak istediğim. Peki ama birşey daha soracağım. Bunun tam tersini yapmak için ne yapmam gerekli acaba? yani şu;

A1=D1
A2=D101
A3=D201
A4=D301 gibi...

Aslında indis kullanımını da öğrenmek isterim ayrıntısıyla. Bu tip formül kullanımlarının açıklaması ve örneklemesiyle tüm ayrıntılarını bulabileceğim br kaynak var mı acaba?

 

[voyager52]

=İNDİS(C:C;((SATIR()*100)-1)) sanırım bu kod. Şimdi araştırdım biraz, çalışma mantığını anladım indis kodunun.

Çok çok teşekkür ederim. Beni nasıl belalardan kurtardınız bir bilseniz )

 

[Saban Sertkaya]

Merhabalar,

Bir ara forumda makro yazımı ile ilgili araştırma yapmanızı da tavsiye ederim. Gün gelir buton eklemeye ve kodlamaya ihtiyacınız olabilir.

http://www.excel.web.tr/f60/userform-hazyrlama-ve-kod-yazma-t77164.html

Linkin 1 nolu mesajındaki dosyayı indirip inceleyebilirsiniz. Faydası olacaktır.

 

[voyager52]

en kısa sürede macro ile ilgili çalışmalarıma başlayacağım fakat şu an için buna vaktim yok o yüzden "bildiğim yol en kısa yoldur mantığı" ile ilerlemekteyim. zaten şimdi yeni bir sorun daha çıktı başıma. İNDİS kodunu kullanıken alt satırlarda istediğimin olmadığını farkettim. yani bu kod 1. satırdan başlayınca işe yaramakta. örnekli anlatmam gerekirse;

A1000=D1000
A1100=D1001
A1200=D1002
A1300=D1003 olmuyor. İNDİS komutu 1. satırdan başlıyor. Eğer verilerinizi aşağılarda bir yerde daha düzenlemeniz gerekiyorsa bu konuda başarısız oluyorsunuz.

Bunun bir çözümünü bulamadım maalesef.

 

[ÖmerBey]

=indis(d:d;1000+(satır()-1000)/100)

 

[voyager52]

=indis(d:d;1000+(satır()-1000)/100)

sorunum halen çözülmedi.

 

[çıtır]

A1=100 artıyorsa D1 yazıp aşağı çekiniz.Bir deneyiniz.

=EĞER(A1<1000;A1/100;EĞER(MOD(A1;1000)=0;A1;A1-MOD(A1;1000)+MOD(A1;1000)/100))