Formülle çekilen bilginin sabitlenmesi

[zaffer1981]

Üstad ben çok bilmiyorum maalesef
Bana bi yardımcı olabilirseniz çok sevinirim

 

[zaffer1981]

Bu hücre formullü ise nasıl yapacağız arkadaşlar yardımcı olabilir misiniz

 

[zaffer1981]

Sanırım Bunun bir çözümü yok

 

[zaffer1981]

Sayın uzmanlar yardim lutfen

 

[Korhan Ayhan]

Merhaba,

Sayfa1 isimli sayfanızın adı üzerinde sağ klik yapın.
Kod Görüntüle seçeneğini seçin.
Açılan pencerede sağ taraftaki beyaz bölüme aşağıdaki kodu uygulayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    If Target = "" Then Target.Next = ""
    Dim S1 As Worksheet, S2 As Worksheet, Bul As Range
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Set Bul = S2.Range("B:B").Find(Target)
    If Not Bul Is Nothing Then
        Target.Next = Bul.Offset(0, 1)
    Else
        Target.Next = ""
    End If
Son:
End Sub

Excel sayfasına geri dönün tarih yazan hücreleri elle yazıp denemeler yapın.

 

[zaffer1981]

Yardımınız için öncelikle teşekkür ederim Korhan bey.
Sayfa2 deki B9 hücresinde formül var değerini başka sayfadaki bir hücreden alıyor. O zaman da çalışmıyor kod maalesef.

Bunun düzelme şansı var mıa acaba?

 

[zaffer1981]

Sayın Uzmanlar şu konuyu bi halledin lütfen. Hücre formullü ise işe yaramıyor bu kodlar. İlla elle girmek lazım o zaman işe yarıyor. Benim hücremde ise formül var maalesef.
tşk.

 

[zaffer1981]

Bu işin bir çözümü yok mu acaba?

 

[Murat OSMA]

Anlattıklarınız bana karışık geliyor yardımcı olabileceğimi sanmıyorum. Konuyu da tam anlamadığım için ben pas diyorum.

İyi günler.

 

[zaffer1981]

Cevap için teşekkür ederim. Yazdığınız kod işimi görüyor zaten sadece sayfa 2 deki tarih hücresi değerini başka bir hücreden alıyor. Yani sayfa2 deki tarih hücresinde formül var .

Kolay gelsin iyi günler.