Formüldeki Kolonların Belirli Sayıda Kayması

[kckfkckf]

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(Y2*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.

 

[asi_kral]

Merhaba
Dosya ekler misiniz ?
Tam olarak ne istediğiniz anlaşılmıyor.

 

[kckfkckf]

https://www.wetransfer.com/downloads/1b7a68a2533f7b96444fd5ff051f057120160331125856/38e71562066e7d6617ee3d6143ef2f1820160331125856/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.

 

[asi_kral]

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.

 

[kckfkckf]

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.

 

[ccuneyt13]

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/

 

[PLİNT]

Merhaba
Ek dosyayı inceleyin
Kodlarla işinize yarayabilir.
http://www.dosya.tc/server7/48d7z8/Deneme_Excel.zip.html

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

 

[kckfkckf]

.

Merhaba, teşekkür ederim. İlk aklıma wetransfer geldiği için orasını kullandım. Bu siteyi de not ediyorum.

.

Çok teşekkür ederim. Yarın deneyeceğim.