İç içe eğer kullanamı

[dayi10]

İç içe eğer kullanımı

İç içe 7 tane eğer kullandım. Ama 8. eğeri kullanamıyorum excel kısıtlama getiriyor. Bu yüzden nasıl bir yol izleyebilirim. Yardımcı olabilirmisiniz.

 

[YUSUF44]

İndis, Düşeyara, Ara, Topla.Çarpım gibi farklı formüller veya makro ile de çözülebilir. Sizin asıl yapmak istediğiniz nedir?

 

[dayi10]

İndis, Düşeyara, Ara, Topla.Çarpım gibi farklı formüller veya makro ile de çözülebilir. Sizin asıl yapmak istediğiniz nedir?

yapmaya çalıştığım örnek ektedir.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdıktan sonra N2 hücresini genel olarak biçimlendirirseniz, F2:M2 aralığında değişiklik yaptığınızda, F2'deki değeri G2:M2 aralığında arar ve bulursa yılını N2 hücresine yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g2:m2")) Is Nothing Then Exit Sub
For i = 6 To 12
If Format(Cells(2, i), "mmmm") = [f2] Then
[n2] = Format(Cells(2, i), "yyyy")
End If
Next
End Sub

 

[dayi10]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdıktan sonra N2 hücresini genel olarak biçimlendirirseniz, F2:M2 aralığında değişiklik yaptığınızda, F2'deki değeri G2:M2 aralığında arar ve bulursa yılını N2 hücresine yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g2:m2")) Is Nothing Then Exit Sub
For i = 6 To 12
If Format(Cells(2, i), "mmmm") = [f2] Then
[n2] = Format(Cells(2, i), "yyyy")
End If
Next
End Sub

dediğiniz şekilde yaptım ama olmadı neden kaynaklanabilir.

 

[YUSUF44]

Bir şeyleri yanlış yapmış olabilirsiniz. Ekli dosyayı inceleyiniz:

 

[dayi10]

Bir şeyleri yanlış yapmış olabilirsiniz. Ekli dosyayı inceleyiniz:

Peki şöyle bir durum var ben bunu aşağıda doğru 10 bin veri için uygulucam yani alt alta 10 bin tarih var bu hangi yıl olması gerektiğini bu kodla nasıl yapabilirim

 

[YUSUF44]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g2:m20000")) Is Nothing Then Exit Sub
For i = 6 To 12
If Format(Cells(Target.row, i), "mmmm") = cells(Target.row, "F") Then
Cells(Target.row, "N") = Format(Cells(Target.row, i), "yyyy")
End If
Next
End Sub

Şeklinde deneyin, yalnız cepten yazdığımdan deneyemedim.

Bir de sorularınızı parça parça değil de asıl istediğinize En yakın şekilde sorarsanız, daha çabuk çözüm bulabilirsiniz.