ikikan
Altın Üye
- Katılım
- 3 Mart 2009
- Mesajlar
- 519
- Excel Vers. ve Dili
- excel 2003 tr
- Altın Üyelik Bitiş Tarihi
- 12.02.2026
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,Özür neden bu şekil yazım hatası oldu bilemedim.
2021 , 2022, 2023 yıllarından kaçar tane olduğunu bulmak istiyorum.
=YIL([@[İŞ EMRİ TARİH]])
=EĞERSAY($P$3: P3;P3)
Bu formülle buluyorum ama bu sefer istemediğim 3 sütun oluyor
İki formülü birleştirmek ve ilk sütunda PGM-20XX-NO sağlamakMerhaba,
Tam olarak soru nedir?
Örnek dosya ektedir.Kurgu olarak formül aynı üretmez, hatalı dosyaı yükleyin.
En alta gelip veri girişi yapınca sürekli aynı numarayı veriyor dikkat ederseniz veri girişi yapıp bir deneyin fark edeceksiniz.Dikkat ettiniz mi?
A381 ile A382 hücresindeki formüller devam niteliğinde değil.
="UYG-"&YIL(B3)&" "&ÇOKEĞERSAY(B$3:B3;">="&TARİH(YIL(B3);1;1);B$3:B3;"<="&TARİH(YIL(B3);12;31))
="UYG-"&YIL(B3)&" "&ÇOKEĞERSAY(DOLAYLI("B3:B"&SATIR());">="&TARİH(YIL(B3);1;1);DOLAYLI("B3:B"&SATIR());"<="&TARİH(YIL(B3);12;31))
="UYG-"&YIL(B3)&" "&ÇOKEĞERSAY(DOLAYLI("B3:B"&SATIR());">="&TARİH(YIL(B3);1;1);DOLAYLI("B3:B"&SATIR());"<="&TARİH(YIL(B3);12;31))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sat, i As Long
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Sat = WorksheetFunction.CountA(Range("B2:B" & Rows.Count)) + 1
For i = 3 To Sat
Cells(i, "A").Value = "UYG-2021 " & i - 2
Next i
End Sub
Siz 2003 versiyon mu kullanıyorsunuz?
Yok Korhan Bey yanlış anlatım galiba verdiğiniz formül işe yarıyor fakat binlerce verim var ana dosyaya uyguladığımda kasma oluyor.Öncelikle profilinizde yazan ofis sürümü bilgisini lütfen güncelleyiniz.
Sonrasında ekteki dosyayı inceleyiniz. Bende sorun yok gibi görünüyor.
="UYG-"&YIL(B419)&" "&ÇOKEĞERSAY(DOLAYLI("B3:B"&SATIR());">="&TARİH(YIL(B419);1;1);DOLAYLI("B3:B"&SATIR());"<="&TARİH(YIL(B419);12;31))