Bir karedeki değerin diğer karelerde otomatik çıkması

[jidame]

Arkadaşlar

Listenin sol tarafındaki giriş altında bulunan "kur" değerleri , sağ taraftaki her bir satışcının altındaki "kur" değerine otomatik gelsin istiyorum.

Ben bunu "=c3" diye teker teker yazıyorum ama bunun girişe yazıldığında diğer tüm satış kısmına düşsün istiyorum

Nasıl yaparız ?

 

[jidame]

Yok mu bunu yapabilecek bir usta, çok zor olmasa gerek

 

[jidame]

yok mu bana yardım edecek :'(

 

[uzmanamele]

merhaba

aşağıdaki kodu modüle yazarak 1 kez çalıştırın.

Sub ToplamFormuluYaz()
ss = Range("a65536").End(3).Row
For i = 6 To ss - 2 Step 2
Cells(i, "K").Formula = "=C" & i
Cells(i, "N").Formula = "=C" & i
Cells(i, "Q").Formula = "=C" & i
Cells(i, "T").Formula = "=C" & i
Cells(i, "W").Formula = "=C" & i
Cells(i, "Z").Formula = "=C" & i
Next
End Sub

 

[jidame]

merhaba

aşağıdaki kodu modüle yazarak 1 kez çalıştırın.

Sub ToplamFormuluYaz()
ss = Range("a65536").End(3).Row
For i = 6 To ss - 2 Step 2
Cells(i, "K").Formula = "=C" & i
Cells(i, "N").Formula = "=C" & i
Cells(i, "Q").Formula = "=C" & i
Cells(i, "T").Formula = "=C" & i
Cells(i, "W").Formula = "=C" & i
Cells(i, "Z").Formula = "=C" & i
Next
End Sub

Teşekkürler , süper oldu ..

 

[jidame]

Uzman abi
küçük bir değişiklik yapabilir miyiz ;
excelde de yazdım ama kısaca
*girişteki kur değeri satıştaki aynı günün kur değerine değil de 1 gün sonraki kur değerine otomatik gelsin ( yani 1'ine ait kur değeri satışta 2'ye ait kur değerinde olacak ve bu böyle bir gün kayarak gidecek )
*bir de ortadaki "satış toplamı" hanesine her bir aracın aynı güne ait toplam satışı gelmeli . ama burada araç sayısı artacağını düşünürsek sağ tarafa ilerde araç ekleyebileceğimizi düşünerek hareket etmeliyiz.

teşekkürler

 

[jidame]

Uzman abi
küçük bir değişiklik yapabilir miyiz ;
excelde de yazdım ama kısaca
*girişteki kur değeri satıştaki aynı günün kur değerine değil de 1 gün sonraki kur değerine otomatik gelsin ( yani 1'ine ait kur değeri satışta 2'ye ait kur değerinde olacak ve bu böyle bir gün kayarak gidecek )
*bir de ortadaki "satış toplamı" hanesine her bir aracın aynı güne ait toplam satışı gelmeli . ama burada araç sayısı artacağını düşünürsek sağ tarafa ilerde araç ekleyebileceğimizi düşünerek hareket etmeliyiz.

teşekkürler

son düzeltmeme ait güncel excel tablom

 

[jidame]

Konuyla ilgili bir yardım eli bekliyorum arkadaşlar...

 

[Korhan Ayhan]

Selamlar,

I6 hücresine aşağıdaki formülü uygulayınız.

=ETOPLA($N$5:$IV$5;I$5;$N7:$IV7)

J6 hücresine aşağıdaki formülü uygulayınız.

=ETOPLA($N$5:$IV$5;J$5;$N7:$IV7)

N6 hücresine aşağıdaki formülü uygulayın. Ve kur bilgisi olan satılara kopyalayınız.

=EĞER(GÜN($L6)=1;0;DOLAYLI("C"&SATIR()-2))

 

[jidame]

Selamlar,

I6 hücresine aşağıdaki formülü uygulayınız.

=ETOPLA($N$5:$IV$5;I$5;$N7:$IV7)

J6 hücresine aşağıdaki formülü uygulayınız.

=ETOPLA($N$5:$IV$5;J$5;$N7:$IV7)

N6 hücresine aşağıdaki formülü uygulayın. Ve kur bilgisi olan satılara kopyalayınız.

=EĞER(GÜN($L6)=1;0;DOLAYLI("C"&SATIR()-2))

Korhan abi günaydın

Satış toplamlarını getirme olayımız tamam ama -sanırım bir yanlış anlama oldu ki- "a" firmasına ait giriş kısmındaki "kur" değeri satışın 1 gün sonrasına ait kur değerinde olması lazım
verdiğin formülle olmadı , bu olayda her araç için girişteki "kur" otomatik gelmeli , teker teker yazmadan olmaz mı?

 

[Korhan Ayhan]

Selamlar,

Kurla ilgili önerdiğim formülü bir kereye mahsus tüm kur hücrelerine kopyalamanız yeterliydi.

Siz otomatik olmasını istiyorsunuz. Bu durumda makro kullanmanız gerekecektir. Aşağıdaki kodu DENEME isimli sayfanızın kod bölümüne uygulayın. Kur ile ilgili hücreyi tıkladığınızda 1 önceki güne ait kur otomatik gelecektir.

Yani tıkladığınız hücreye ait tarih 02-05-2011 ise kur bilgisi olarak 01-05-2011 tarihi baz alınacaktır. Bir önceki mesajınzda bir önceki günün kurunu alsın diye belirttiğiniz için bu şekilde düzenledim. Bu şekilde işinize yaramıyorsa kod içindeki kırmızı renkli değeri değiştirip dilediğiniz kur bilgisini alabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("N:IV")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 2 Then Exit Sub
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    If Cells(Target.Row, "M") = "KUR" Then
        Target = ""
        If Day(Cells(Target.Row, "L")) > 1 Then
            Target = Cells(Target.Row [COLOR=red]- 2[/COLOR], "C")
        End If
    End If
End Sub

 

[jidame]

Selamlar,

Kurla ilgili önerdiğim formülü bir kereye mahsus tüm kur hücrelerine kopyalamanız yeterliydi.

Siz otomatik olmasını istiyorsunuz. Bu durumda makro kullanmanız gerekecektir. Aşağıdaki kodu DENEME isimli sayfanızın kod bölümüne uygulayın. Kur ile ilgili hücreyi tıkladığınızda 1 önceki güne ait kur otomatik gelecektir.

Yani tıkladığınız hücreye ait tarih 02-05-2011 ise kur bilgisi olarak 01-05-2011 tarihi baz alınacaktır. Bir önceki mesajınzda bir önceki günün kurunu alsın diye belirttiğiniz için bu şekilde düzenledim. Bu şekilde işinize yaramıyorsa kod içindeki kırmızı renkli değeri değiştirip dilediğiniz kur bilgisini alabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("N:IV")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 2 Then Exit Sub
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    If Cells(Target.Row, "M") = "KUR" Then
        Target = ""
        If Day(Cells(Target.Row, "L")) > 1 Then
            Target = Cells(Target.Row [COLOR=red]- 2[/COLOR], "C")
        End If
    End If
End Sub

UltRA sÜPPerSin abi , teşekkürler !!