eğer değilse formülü çalıştırma.

[zodiak]

biraz garip oldu biliyorum ama soru şu bir koşula bağlı eğer formülü içeren bir hücredeki formül çalışmaktayken koşul doğru değilse bu hücredeki formülün heseplama yapmasını engelleyebilirmiyiz

=eğer(a1="23.02.2012;eğer(bir dizi formül çalışıyor) değilse bu bir dizi fomül çalışmayacak bu mümkünmüdür

 

[YUSUF44]

Sorunuzu anlayabilsek belki cevaplardık ama bunu dışardan bir gözle bakıp okuduğunuzda sizin bile anlayacağınızı sanıyorum

 

[Mahir64]

biraz garip oldu biliyorum ama soru şu bir koşula bağlı eğer formülü içeren bir hücredeki formül çalışmaktayken koşul doğru değilse bu hücredeki formülün heseplama yapmasını engelleyebilirmiyiz

=eğer(a1="23.02.2012;eğer(bir dizi formül çalışıyor) değilse bu bir dizi fomül çalışmayacak bu mümkünmüdür

Merhaba,

[COLOR=Red]=eğer(a1<>"23.01"2012";"";[/COLOR]eğer(a1="23.02.2012;eğer(bir dizi formül çalışıyor)

Bir koşul ekleyin. İstediğiniz kreitere uymuyorsa boş bıraksın.

Daha olmazsa bir örnek ekleyin.

 

[zodiak]

örnek dosya ekte

ilginiz ve geri dönüşünüz için teşekkürler örnek dosya ekte açıklamada için saygılarımla 4 gündür uğraşıyorum bir türlü işin içinden çıkamadım ....

 

[Mahir64]

şimdi burdaki tarih veri sayfası e sutunundaki hücresinden büyükse formül işini yapsın eğer küçük se değer değişmeden olduğu gibi kalsın veya hesaplama yapılmasın

Tarih: E:E aralığında herhangi birinden (E1,E2,E3 vs.) büyükse işlem boş mu geçecek?

Bunu deneyin.

=EĞER($B$1>veri!E2;EĞER(veri!D2=0;veri!C2;veri!B2);"")

 

[zodiak]

hocam sayfa1 deki tarih ile veri kısmında adı karşılığındaki tarih kıyaslaması yapılacak eğer sayfa1 deki tarih veri sayfasındaki tarihten büyükse sayfa1 b3, b4 ..... sıralanan formül çalışmayacak içeriği boşaltılmayacak diğer bir değişle değişiklik yapılmayacak...

 

[Mahir64]

Yukarıdaki formülü denediniz mi?

 

[zodiak]

örneği biraz daha geliştirdim

umarım çözüm buluruz

 

[YUSUF44]

Sanıyorum dosyanın bu haliyle istediğiniz tam olarak olmaz. Çünkü eğer formülü sonucunda ya istediğiniz bir şeyi yazdırırsınız, ya boş bırakırsınız, ya yanlış yazdırırsınız ya da formülünüz işini yapar. Yani bu formülde eskisi kalsın diye bir komut yok. Ancak o eski hali başka bir hücrede varsa formülü tarih büyükse eski fiyatı yaz, küçükse yeni fiyatı yaz şeklinde olabilir.

 

[zodiak]

yapmayınnnn ciddimisiniz tüh yokmu başka bir yolu bu formüllerin işlem yapmasını engelemenin

 

[zodiak]

yukmu cidden bir çaresi

 

[aytekin44]

Merhabalar,

Benimde benzer bir sorum bulunuyor. Aşağıdaki formüllerden birinde veri bulunmaz ise toplamı sadece diğer formül belirlesin şeklinde bir eğer formülü yazılabilir mi?

Örneğin kırmızı bölümde ki hücrelerde veri girilmemiş ise diğer average formülü sadece çalışsın istiyorum.

=[COLOR="Red"](AVERAGE(CM4:CP4)*0,8)[/COLOR]+(AVERAGE(CQ4:CT4)*0,2)

İyi Çalışmalar

 

[omurkuscu]

Üstadlar merhabalar
Buna benzer benimde bir sorunum var. Ornek dosyam ekte. Kısaca istediğim eğer koşulunun ikincinayaginda hicbir şey yapmaması. Yani orada önceki girilen bilginin kalması. Hücrenin aynısını yazdığımda döngü hatası alıyorum. Yardımcı olursanız çok makbule geçecek. Şimdiden teşekkürler. Ornek dosyam linki https://dosya.co/nwyvx1o4rbdw/Copy_of_Kitap5.xlsx.html

 

[YUSUF44]

Üstadlar merhabalar
Buna benzer benimde bir sorunum var. Ornek dosyam ekte. Kısaca istediğim eğer koşulunun ikincinayaginda hicbir şey yapmaması. Yani orada önceki girilen bilginin kalması. Hücrenin aynısını yazdığımda döngü hatası alıyorum. Yardımcı olursanız çok makbule geçecek. Şimdiden teşekkürler. Ornek dosyam linki https://dosya.co/nwyvx1o4rbdw/Copy_of_Kitap5.xlsx.html

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz. F1 hücresi yardımcı hücre olarak kullanılmıştır:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4:C1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
a = [F1].Value
If Target <> "" Then
Target.Offset(0, -1) = a
Else
Target.Offset(0, -1).FormulaR1C1 = "=IF(RC[1]="""",VLOOKUP(RC[-1],C[5]:C[6],2,0),"""")"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C4:C1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then
[F1] = Target.Offset(0, -1).Value
Else
[F1] = ""
End If
End Sub



 

[omurkuscu]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz. F1 hücresi yardımcı hücre olarak kullanılmıştır:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4:C1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
a = [F1].Value
If Target <> "" Then
Target.Offset(0, -1) = a
Else
Target.Offset(0, -1).FormulaR1C1 = "=IF(RC[1]="""",VLOOKUP(RC[-1],C[5]:C[6],2,0),"""")"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C4:C1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then
[F1] = Target.Offset(0, -1).Value
Else
[F1] = ""
End If
End Sub



Üstadım saygılar
Kodları kopyalarım. Sistem çalışıyor. Ancak teyid etme öğrenme acısından soruyorum. Kodların sağlıklı çalışması için dosyayi makro içeren şekilde mi kaydetmem lazım. Diğer türlu de calisiyor ancak tarihi silersem veri de siliniyor. Android cihazlarda ozellikle xlsm uzantili makrolu olunca sikinti oluyor . Bu arada yeni bir dosya yükledim. Rica etsem. Kodları bu sayfaya gore yazabilirmisiniz . Yardım ve emekleriniz için çok cok teşekkür ediyorum. Çok uzun süredir bu soruna çözüm bulamamıştım. Saygılarımla

İndir Ver Çalışılacak

Dosyayı indir Ver Çalışılacak

dosya.co

 

[YUSUF44]

Makrosuz kaydederseniz daha sonra açtığınızda makrolar silinmiş olur ve çalışmaz. Makroları çalışması için uzantısı xlsm ya da xls olmalıdır. Xlsx olursa makrolar çalışmaz.

Cepten baktığımdan dosyanızı inceleyemedim, uygun zamanda bakmaya çalışırım.

 

[leguminosea]

Sayın @omurkuscu
Bir alternatif de benden olsun.
Verinizi girin. Güncelleye tıklayın ve kaydedin.

Kitap1.xlsm

dosyayı indir, full download - Kitap1.xlsm

www.dosyaupload.com

 

[omurkuscu]

Sayın @omurkuscu
Bir alternatif de benden olsun.
Verinizi girin. Güncelleye tıklayın ve kaydedin.

Kitap1.xlsm

dosyayı indir, full download - Kitap1.xlsm

www.dosyaupload.com

Teşekkür ederim Üstadım.
Ellerinize sağlık . Gayet güzel ve kullanışlı .

 

[YUSUF44]

Üstadım saygılar
Kodları kopyalarım. Sistem çalışıyor. Ancak teyid etme öğrenme acısından soruyorum. Kodların sağlıklı çalışması için dosyayi makro içeren şekilde mi kaydetmem lazım. Diğer türlu de calisiyor ancak tarihi silersem veri de siliniyor. Android cihazlarda ozellikle xlsm uzantili makrolu olunca sikinti oluyor . Bu arada yeni bir dosya yükledim. Rica etsem. Kodları bu sayfaya gore yazabilirmisiniz . Yardım ve emekleriniz için çok cok teşekkür ediyorum. Çok uzun süredir bu soruna çözüm bulamamıştım. Saygılarımla

İndir Ver Çalışılacak

Dosyayı indir Ver Çalışılacak

dosya.co

Günaydın.

Aşağıdaki kodları deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K4:K1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
a = [F1].Value
If Target <> "" Then
    Target.Offset(0, -4) = a
Else
    Target.Offset(0, -4).FormulaR1C1 = "=VLOOKUP(RC[-4],Fiyat!R1C3:R100C4,2,0)"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [K4:K1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then
    [F1] = Target.Offset(0, -4).Value
Else
    [F1] = ""
End If
End Sub