Soru Formül içinde formül kullanımı

[brod12]

Merhaba. Size ufak bir sorum olacak.

{=EĞERHATA(METNEÇEVİR(İNDİS('NÖBET GEÇMİŞİ'!$A$1:$E$10000;BÜYÜK(EĞER('NÖBET GEÇMİŞİ'!$B$1:$B$10000=$B3;SATIR('NÖBET GEÇMİŞİ'!$B$1:$B$10000));SÜTUN(A$1));5);"gg.aa.yyyy");"")}

Bu kod ile başka sayfada yazılı olan bir tarihi çekiyoruz. Benim yapmaya çalıştığım. Bu çekilen tarihi, bugünün tarihinden çıkarıp gün farkını yazdırmak istiyorum.

=BUGÜN() - "Formülün yazılı olduğu hücre"

Bu şekilde yapabiliyorum ama böyle yaparsam tarihi önce bir hücreye çekip daha sonrada başka bir hücreye gün farkını yazdırmam gerekiyor.

=BUGÜN()-"Yukarıda yazılı olan kod"

Ben bu şekilde yapıp tek hücrede işi bitirmek istiyorum. Ama nasıl birleştireceğimi bilemedim. Yardımlarınızı bekliyorum.

 

[çıtır]

Dizi formülüne çevirmeyi unutmayınız.

=BUGÜN()-EĞERHATA(METNEÇEVİR(İNDİS('NÖBET GEÇMİŞİ'!$A$1:$E$10000;BÜYÜK(EĞER('NÖBET GEÇMİŞİ'!$B$1:$B$10000=$B3;SATIR('NÖBET GEÇMİŞİ'!$B$1:$B$10000));SÜTUN(A$1));5);"gg.aa.yyyy");"")

 

[brod12]

Dizi formülüne çevirmeyi unutmayınız.

=BUGÜN()-EĞERHATA(METNEÇEVİR(İNDİS('NÖBET GEÇMİŞİ'!$A$1:$E$10000;BÜYÜK(EĞER('NÖBET GEÇMİŞİ'!$B$1:$B$10000=$B3;SATIR('NÖBET GEÇMİŞİ'!$B$1:$B$10000));SÜTUN(A$1));5);"gg.aa.yyyy");"")

Sayenizde hallettim. Teşekkür ederim.

 

[brod12]

Son bir sorum daha var. Size zahmet bunuda cevaplarsanız sevinirim.

Private Sub CommandButton1_Click()
Dim hcr As Range
If MsgBox("Renkler güncellensin mi?", vbYesNo + vbQuestion) = vbYes Then
For Each hcr In Range("A1:A10")

If hcr.Interior.Color = vbRed Then
hcr.Interior.Color = vbBlue
hcr.Value = 1

ElseIf hcr.Interior.Color = vbBlue Then
hcr.Interior.Color = vbYellow
hcr.Value = 2

ElseIf hcr.Interior.Color = vbYellow Then
hcr.Interior.Color = vbGreen
hcr.Value = 3

ElseIf hcr.Interior.Color = vbGreen Then
hcr.Interior.Color = vbWhite
hcr.Value = 4

ElseIf hcr.Interior.Color = vbWhite Then
hcr.Interior.Color = vbWhite
hcr.Value = hcr + 1
End If
Next
GoTo 10
Else
MsgBox "Renkler güncellenmedi."
Exit Sub
End If
10:
MsgBox "Renkler güncellendi."
End Sub

Böyle bir kod satırı var. Renge göre değer veriyor ama renkli hücrelerin içerisine yazıyor. Bu değeri bir yan hücreye yazdırmak istiyorum. Birde rengi ben kırmızıya çevirince otomatik içindeki değer silinsin istiyorum. Yardımlarınızı bekliyorum.