Toplam süreyi hesaplatma

[YUSUF44]

Lütfen "olmadı" diye basite almayın. Olmayan nedir, ne yaptınız, ne olması gerekiyordu, ne oldu, nasıl bir sonuçla kaşrılaştınız, hata mı verdi, hatalı işlem mi yaptı, ne oldu yani?

Ben de "ben yaptım oldu" dersem hoş olmaz değil mi?

 

[Heybetullah]

haklısınız bana yazdığınızın aynısı yaptım kopyaladım
kodu görüntülede olmadı.konuşmamızın ilklerine bakarsanız bana bir formul yazdınız bende kopyaladım oldu aynı formul birdaha yazsanız super olurdu

 

[Heybetullah]

bunu istiyordum sizden

 

[YUSUF44]

Gönderdiğiniz dosyada verdiğim kod bulunmuyor, nereye kopyaladınız?

Verdiğim kod tam olarak

ARKADAŞLAR BU HÜCRENİN İÇİNDE NE YAZILI İSE İSİNLER 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

şeklindeki isteğinizi yerine getirmektedir.

 

[YUSUF44]

Kodları kopyalayın, sayfanın kod bölümüne yapıştırın

M8:M14 arasındaki bir hücreyi seçin, o hücredeki değerin M6 hücresine geldiğini göreceksiniz
Seçtiğiniz hücreyi silmeden değiştirin, Örneğin M8'deki F:1 YAĞMUR ifadesini F:1 YAĞMURaaaaa olarak değiştirin
D sütununda F:1 YAĞMUR oaln tüm hücreler F:1 YAĞMURaaaaa olarak değişecektir.
Ya da F:1 YAĞMUR ifadesini Ali olarak değiştirin, yine D sütunundaki F:1 YAĞMUR ifadeleri Ali olacaktır.

Kodun düzgün çalışması için silme işlemi yapmamalısınız, çünkü sildiğinizde D sütunundaki değerler de silinir. Yeni değer yazdığınızda D sütunundaki tüm boş hücreler o yeni değeri alır.

 

[Heybetullah]

rabbim razı olsun zaman ayırdınız

 

[Heybetullah]

Aş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:

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

 

[Heybetullah]

Mevcut olan formül bozulmadan arkadaşlar O8 hücresi 24 saat aştığında P8 Hücresine 1 gün atmasını istiyorum lütfen yardımcı olun

 

[Heybetullah]

Mevcut olan formül bozulmadan arkadaşlar O8 hücresi 24 saat aştığında P8 Hücresine 1 gün atmasını istiyorum lütfen yardımcı olun

rica etsem baksanız.

 

[YUSUF44]

Şunu dener misiniz?

=(ETOPLA(D8:D54;SOLDAN(M8;BUL(" ";M8))&"*";H8:H54))+AŞAĞIYUVARLA(ETOPLA($D$8:$D$54;SOLDAN($M8;BUL(" ";M8))&"*";$I$8:$I$54);0)

 

[Heybetullah]

Tamam yusuf by deniyorum tşkler

 

[Heybetullah]

=(ETOPLA(D854;SOLDAN(M8;BUL(" ";M8))&"*";H8:H54))+AŞAĞIYUVARLA(ETOPLA($D$8:$D$54;SOLDAN($M8;BUL(" ";M8))&"*";$I$8:$I$54);0)

tşkler olmuş elinize sağlık

 

[Heybetullah]

yusuf by bişey soracaktım formülleri nasıl öğrenebilirim.
mesela ()*+;:& vb gibi işaretler ne işe yarar nasıl öğrenebilirim yada nerde öğrenebilirim.
önereceğiniz bir şey varmı kitap olur vb