Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 31-03-2016, 14:45   #1
kckfkckf
 
Giriş: 31/03/2016
Mesaj: 4
Excel Vers. ve Dili:
2007, Eng.
Varsayılan Formüldeki Kolonların Belirli Sayıda Kayması

Merhaba arkadaşlar, başlıkla çok bir şey anlatamadım ancak örnek vereyim.

Kısaca şöyle bir Excel formülüm var;

1. Hafta;
=IF(G2>F2;G2;(IF($B2="S";IF(F2*1,1>H2;F2;G2);IF(F2 *1,4>H2;F2;G2))))

Formül G / F ve H kolonlarına bakıyor ve bir sonuç buluyor.

2. Hafta verim ise 20 satır yanda. Yani aradığım veri F'de -> 20 ileri gidince Y'deki veriye ulaşıyorum.
3. Hafta verim ise yine Y'den -> 20 ileri gidince AR'de.

Aşağıda 2. ve 3. hafta formüllerimi de görebilirsiniz.

=IF(Z2>Y2;Z2;(IF($B2="S";IF(Y2*1,1>AA2;Y2;Z2);IF(Y 2*1,4>AA2;Y2;Z2))))

=IF(AS2>AR2;AS2;(IF($B2="S";IF(AR2*1,1>AT2;AR2;AS2 );IF(AR2*1,4>AT2;AR2;AS2))))

Tekrar özetlersem

F2->Y2->AR2->BK2->CD2
H2->AA2->AT2->BM2->CF2
G2->Z2->AS2->BL2->CE2

Böyle 20'şer 20'şer sağa kayacak. Başlıkları var, w01-w02 diye. w52'ye kadar devam ediyor.

Bunu tek tek uğraşmadan nasıl kolay yapabilirim?
Teşekkürler.
kckfkckf Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 15:52   #2
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Merhaba
Dosya ekler misiniz ?
Tam olarak ne istediğiniz anlaşılmıyor.
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 16:00   #3
kckfkckf
 
Giriş: 31/03/2016
Mesaj: 4
Excel Vers. ve Dili:
2007, Eng.
Varsayılan

https://www.wetransfer.com/downloads...1125856/f8f1c4

Şöyle wetransfer linki vereyim. Dosya ekleyemedim.

Dosya kısaltılmış veridir. 252 sheetinde nasıl ilerlediğimi görebilirsiniz. Ancak tek tek yazmam gerekiyor. 52 hafta tek tek yazmak zor oluyor.
kckfkckf Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 16:09   #4
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Dosyayı görmeden bir şey yapamam. Bir upload sitesine dosyanızın orjinal olmayan verilerini girin ve içerisine bir kaç tane örnek ekleyin. Ona göre yardımcı olmaya çalışayım.
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 16:15   #5
kckfkckf
 
Giriş: 31/03/2016
Mesaj: 4
Excel Vers. ve Dili:
2007, Eng.
Varsayılan

Wetransfer upload sitesi. Linkten rahatça indirebilirsiniz. Güvenilirliğinden endişe duymamanız için xlsx olarak ekledim. Ayrıca wetransfer'i google'dan araştırabilirsiniz.

Oradan dosyayı indirebilirseniz, örnek mevcut.
kckfkckf Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 16:36   #6
ccuneyt13
Altın Üye
 
Giriş: 20/01/2011
Mesaj: 201
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

Alıntı:
kckfkckf tarafından gönderildi Mesajı Görüntüle
Wetransfer upload sitesi. Linkten rahatça indirebilirsiniz. Güvenilirliğinden endişe duymamanız için xlsx olarak ekledim. Ayrıca wetransfer'i google'dan araştırabilirsiniz.

Oradan dosyayı indirebilirseniz, örnek mevcut.

Merhaba,
Sadece öneri;
Forumda sürekli kullanılan aşağıdaki siteye örnek dosyanızı eklerseniz uzman arkadaşlar mutlaka yardımcı olmaya çalışırlar.

http://www.dosya.tc/
ccuneyt13 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 21:08   #7
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,247
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Ek dosyayı inceleyin
Kodlarla işinize yarayabilir.
http://www.dosya.tc/server7/48d7z8/D...Excel.zip.html
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("252")
x = 24
i = s1.Cells(Rows.Count, "A").End(3).Row
s2.Range("A2:BB" & i + 1) = Empty
On Error Resume Next
For a = 2 To 53
For b = 2 To i
s2.Cells(b, 1) = s1.Cells(b, 1)
If s1.Cells(b, x - 17) > s1.Cells(b, x - 18) Then
s2.Cells(b, a) = s1.Cells(b, x - 17)
ElseIf s1.Cells(b, "B") = "S" Then
If s1.Cells(b, x - 18) * 1.1 > s1.Cells(b, x - 16) Then
s2.Cells(b, a) = s1.Cells(b, x - 18)
Else
s2.Cells(b, a) = s1.Cells(b, x - 17)
End If
Else
If s1.Cells(b, x - 18) * 1.4 > s1.Cells(b, x - 16) Then
s2.Cells(b, a) = s1.Cells(b, x - 18)
Else
s2.Cells(b, a) = s1.Cells(b, x - 17)
End If
End If
Next
x = x + 19
Next
End Sub
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 21:42   #8
kckfkckf
 
Giriş: 31/03/2016
Mesaj: 4
Excel Vers. ve Dili:
2007, Eng.
Varsayılan

Alıntı:
ccuneyt13 tarafından gönderildi Mesajı Görüntüle
.
Merhaba, teşekkür ederim. İlk aklıma wetransfer geldiği için orasını kullandım. Bu siteyi de not ediyorum.

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
.
Çok teşekkür ederim. Yarın deneyeceğim.

Bu mesaj en son " 31-03-2016 " tarihinde saat 21:48 itibariyle kckfkckf tarafından düzenlenmiştir....
kckfkckf Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 12:20


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden