- Katılım
- 14 Ocak 2020
- Mesajlar
- 57
- Excel Vers. ve Dili
- Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=MOD(ETOPLA($B$12:$B$49;SOLDAN($P12;BUL(" ";$P12))&"*";$L$12:$L$49);1)=GÜN(ETOPLA($B$12:$B$49;SOLDAN($P12;BUL(" ";$P12))&"*";$L$12:$L$49))Bizler sitenin ortağı, sahibi ya da çalışanı değiliz. Altın üyelik ücretinin kullanıcılarla doğrudan bir ilgisi bulunmamaktadır. Sadece yardıma ihtiyaç duyanlara gönüllü olarak yardım etmeye çalışanlara ortam sağlıyor.helal olsun işinizin ehlisiniz üçretli abone olduğumuz parada ananızı ak sütü gibi helal olsun ve helaldir. bravo
S12'de aşağıdaki formülü:
=MOD(ETOPLA($B$12:$B$49;SOLDAN($P12;BUL(" ";$P12))&"*";$L$12:$L$49);1)
T12'de aşağıdaki formülü deneyiniz:
=GÜN(ETOPLA($B$12:$B$49;SOLDAN($P12;BUL(" ";$P12))&"*";$L$12:$L$49))
Tşkler çok güzel olmuş rica etsem şu özellikte ekleyebilirmisinizDosyanız;
etifosfat tm BU HÜCRENİN İÇİNDE NE YAZILI İSE İSİM LER SOL TARAFDA AÇILAN KESİC ALTINDAKİ İSİMLERDE AYNI OLSUN ÖR : F:1 YAĞMUR SİLDİM YERİNE F:14 KOZLUK YAZDIM HEMEN AÇILAN KESİCİ ALTINDAKİ İSİMLERDE F:1 YAĞMUR SİLİNSİN F:14 KOZLUK YAZILSA |
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub
eski = [M6].Value
For Each hucre In [D8:D47]
If hucre.Value = eski Then
hucre.Value = Target
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub
[M6] = Target
End Sub
ABE BECEREMEDİMAşağıdaki kodları "13 ) İNKİTA " sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırarak deneyin.
M8:M14 arasında değişiklik yaptığınızda M6 hücresini yardımcı hücre olarak kullanarak D8: D47 aralığında da aynı değişiklikleri uygular:
PHP:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub eski = [M6].Value For Each hucre In [D8:D47] If hucre.Value = eski Then hucre.Value = Target End If Next End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub [M6] = Target End Sub