İndis hatası

[aydgur]

İyi günler , indis kullandığım bir dosyam var fakat isimleri tam getiremiyorum, yardımcı olmanız mümkün mü ?

 

[Korhan Ayhan]

K2 hücresine uygulayın ve alt hücrelere sürükleyin.

=EĞER(EĞERSAY(A$1:A2;A2)=1;B2;ARA(2;1/(A$1:A1=A2);K$1:K1)&"+"&B2)

 

[aydgur]

Çok teşekkür ederim Korhan bey, peki # YOK hatasını nasıl önlerim ?

 

[YUSUF44]

Aşağıdaki gibi kullanabilirsiniz:

=EĞERHATA(EĞER(EĞERSAY(A$1:A2;A2)=1;B2;ARA(2;1/(A$1:A1=A2);K$1:K1)&"+"&B2);"")

 

[aydgur]

Teşekkür ve parçaal formülünü sql ye uyarlama

Evet , size erken yazdım eğerhata ile çok güzel oldu.

Peki ekteki parçaal formülünü sql ye uyarlamaya yardımcı olabilir misiniz ?

 

[YUSUF44]

"SQL" ve "SQL'e uyarlamak" bana çok uzak tabirler maalesef

 

[aydgur]

Teşekkür ederim. Bölmeleri dondur ile bazı hücreleri dondurmak istiyorum , örnek dosyada gösterdim, yardımcı olabilir misiniz

 

[YUSUF44]

Ekli dosyayı inceleyiniz:

https://drive.google.com/file/d/0B43WMUs21Vpfd2tfbkptbkpUWmM/view?usp=sharing

dosyada kurların olduğu bölümü "Kamera" özelliğini kullanarak resim nesnesi şeklinde sayfaya ekledim. Bu özellik normalde excel menülerinde görünmüyor. Düğme özelleştirmeden tüm komutlar arasında bulup şeride eklenebiliyor.

Daha sonra sayfada değişiklik yapılması halinde çalışacak şekilde aşağıdaki kodları oluşturdum:

Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.Row
If a < 15 Then
    ActiveSheet.Shapes("Resim 3").Top = ActiveCell.Offset(-a, 0).Rows.Top
Else
    ActiveSheet.Shapes("Resim 3").Top = ActiveCell.Offset(-15, 0).Rows.Top
End If
End Sub

Böylece sayfada değişiklik yaptığınız yerlerde o resim değişiklik yapılan hücre civarında görünür halde olacak:

https://drive.google.com/open?id=0B43WMUs21Vpfd2tfbkptbkpUWmM