İstenilen verileri istenilen yere getirme

hassas

Altın Üye
Katılım
8 Temmuz 2009
Mesajlar
545
Excel Vers. ve Dili
2007-2010
Altın Üyelik Bitiş Tarihi
01-05-2027
Sayın üstadlar öncelikle iyi akşamlar dilerim.
Ekte belirtilen dosyanın içeriğinde gerekli açıklamaları yaptığım bir çalışma dosyam var.yardımcı olabilirseniz sevinirim.
 

Ekli dosyalar

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
C2 hücresine:
Kod:
=IF(ROW()=2;$A$2;IF(ROW()-1<=ROUND((MAX($A$2:$A$25000)-$A$2)/3;0);C1+3;""))
D2 hücresine:
Kod:
=IF(C2="";"";LOOKUP(C2;$A$2:$A$25000;$B$2:$B$25000))
formüllerini yazıp, her ikisini de 1000 satır aşağıya doğru kopyalayıp yapıştırın.

Türkçe Formül karşılıkları:
IF=EĞER
ROW=SATIR
ROUND=YUVARLA
MAX=MAK
LOOKUP=ARA
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,174
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Alternatif olsun.
İnceleyin.

Not: A sütunundaki sayılarınız 0,1 aralıklı değil. Tablodaki sayılarınızda bu düzenlemeyi makro ile yaptım.(bilgilerinize)

İyi çalışmalar.
 

Ekli dosyalar

hassas

Altın Üye
Katılım
8 Temmuz 2009
Mesajlar
545
Excel Vers. ve Dili
2007-2010
Altın Üyelik Bitiş Tarihi
01-05-2027
Sayın üstad öncelikli olarak ilginizden dolayı çok teşekkür eder, Tüm işlerinizde kolaylıklar dilerim.
oradaki formülleri kopyaladığımda #AD? bir hata verdi, bir 1000 e kadar aşağıya çekmemi belirtmişsiniz,onu daha çok yapabilirmiyiz.
iyi günler diler hayatta kolaylıklar dilerim.
 

hassas

Altın Üye
Katılım
8 Temmuz 2009
Mesajlar
545
Excel Vers. ve Dili
2007-2010
Altın Üyelik Bitiş Tarihi
01-05-2027
Sayın uygun bey Makro olarak yaptığınız dosyayı tam olarak anlayamadım.
Yani ben A3 ile B3 Hücresine isteğim kadar veri yükleyebilirmiyim,bunun üzerinden kendisi otomatik olarak 3 mm aralıkla D ve E sutunundaki verilere otomatik sıralama yapıyor.
eğr böyle ise çok mükemmek bir şey olmuş oluyor.
Bu konuda beni bilgilendiriseniz sevinirim.
iyi çalışmalar.
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,174
Excel Vers. ve Dili
Excel-2003 Türkçe
Sayın uygun bey Makro olarak yaptığınız dosyayı tam olarak anlayamadım.
Yani ben A3 ile B3 Hücresine isteğim kadar veri yükleyebilirmiyim,bunun üzerinden kendisi otomatik olarak 3 mm aralıkla D ve E sutunundaki verilere otomatik sıralama yapıyor.
eğr böyle ise çok mükemmek bir şey olmuş oluyor.
Bu konuda beni bilgilendiriseniz sevinirim.
iyi çalışmalar.
Merhaba;
Sayfa1 kod kısmında;

Sub artır()
For i = 3 To 24565
Cells(i, 1) = Cells(i - 1, 1) + 0.1
Next i
End Sub

A2 hücresindeki sayıyı 24565. satıra kadar her satırda bir üstteki satırı 0,1 miktar artırarak yazdırdım.
Makro ile yaptığım sayı düzeltme işlemi bu.
Tablo ise A3 hücresinden itibaren en küçük sayıyı baz alarak D2 hücresine yazdığınız sayı kadar C sütunundaki gri hücrelerde tespit ederek bu sayı ve karşılıklarını D3 , E3 ve devamına getiriyor. (D3 hücresindeki rakamı 2 yada 5 yaparak bu işleme uygun ardışık değerleri tabloya getirebilirsiniz.)

A3 ve B3 ten itibaren uyguladığınız veri kadar C3 hücresindeki formülü de çoğaltın.
D ve E sütunundaki koyu gri hücreleri yeteri kadar çoğaltın.

Ben Ofis 2003 kullandığım için satır sayısı 65535 ile sınırlı.
Siz D3 ve E3 teki formüllerde 65535 sayısını (Ofis 2007 ve üzeri versiyonlarda 1035000 e kadar çıkabilirsiniz) kendinize göre düzenleyin.

İyi çalışmalar.
 

hassas

Altın Üye
Katılım
8 Temmuz 2009
Mesajlar
545
Excel Vers. ve Dili
2007-2010
Altın Üyelik Bitiş Tarihi
01-05-2027
Sayın uygun bey emeğinizden dolayı ilginizden dolayı çok teşekkür ederim.
iyi günler.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın üstad öncelikli olarak ilginizden dolayı çok teşekkür eder, Tüm işlerinizde kolaylıklar dilerim.
oradaki formülleri kopyaladığımda #AD? bir hata verdi, bir 1000 e kadar aşağıya çekmemi belirtmişsiniz,onu daha çok yapabilirmiyiz.
iyi günler diler hayatta kolaylıklar dilerim.
Türkçe Excel kullanıyorsanız;Kopyaladığınız formüldeki İngilizce Fonksiyonların Türkçelerini yazınız.
Formülleri istediğiniz kadar aşağıya çekebilirsiniz.
 

hassas

Altın Üye
Katılım
8 Temmuz 2009
Mesajlar
545
Excel Vers. ve Dili
2007-2010
Altın Üyelik Bitiş Tarihi
01-05-2027
Sayın turist bey öncelikle iyi akşamlar dilerim.
Kusura bakmayın ben uygulayamadım eğer siz yardımcı olabilirseniz sevinirim.
iyi akşamlar dilerim.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın turist bey öncelikle iyi akşamlar dilerim.
Kusura bakmayın ben uygulayamadım eğer siz yardımcı olabilirseniz sevinirim.
iyi akşamlar dilerim.
C2 hücresine:
Kod:
=EĞER(SATIR()=2;$A$2;EĞER(SATIR()-1<=YUVARLA((MAK($A$2:$A$25000)-$A$2)/3;0);C1+3;""))
D2 hücresine:
Kod:
=EĞER(C2="";"";ARA(C2;$A$2:$A$25000;$B$2:$B$25000))
formüllerini yazıp, her ikisini de İSTEDİĞİNİZ KADAR aşağıya doğru kopyalayıp yapıştırın.
 
Üst