Formüller gözükmeden değer değiştirmek

[Erkand]

Merhaba;


En alttaki mesajımda daha basit bi' yardım talep ettim : )
Örnekte verdiğim dosyada


Birinci sayfadaki değerleri resimdeki şeklin uygun yerlerine eşitledim.Fakat bunları değiştirmek istediğimde formülüze edilmiş değerler çıkıyor.(sayfa1!B5 gibi).Formüller çıkmadan değerleri değiştirmek ve sayfa 1 deki değerlerle eşitlemek istiyorum.Örnekten daha iyi anlarsanız anlatamasam bile : )

Şimdiden yardımlarınız için teşekkür ederim.

 

[uzmanamele]

merhaba

istediğiniz; sayfa2'deki seçime göre sayfa3 deki değerlerin sayfa1'e aktarılarak, oradan da sayfa2 de ilgili ölçünün görülmesi midir?

 

[Erkand]

merhaba

istediğiniz; sayfa2'deki seçime göre sayfa3 deki değerlerin sayfa1'e aktarılarak, oradan da sayfa2 de ilgili ölçünün görülmesi midir?

Aslında şimdi baktımda biraz eksik gitmişim.Amacım sayfa 2'deki sarı kutucuklara uygun yerlerden değerleri alacak ben bunları istediğim şekilde değiştirceğim ve sayfa1'ki değerlerde değişecek.Sayfa 3 ile hiçbir bağ yok hocam.

yani sayfa2'deki h28 sayfa1'deki b3 hücresinden değeri alacak.Ben h28'i manuel olarak değiştirdğimde sayfa1'deki b3' de değişecek.

aşağıdaki gibi bi' kod var elimde ama tam uygulayamadım.Sanırım bu kod ile yapılacak.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("Sayfa1").Cells(Range("A1").Value + 2, "B").Value = Target.Value

End Sub

Şimdiden sağolun hocam.

 

[Erkand]

Yardım edecek yok mu?

 

[Erkand]

Daha klay şekilde sorayım.ÖRnekte verdim onun üzerinden anlatayım.

örnekte sayfa 2'deki h28 hücresi sayfa1'deki b3 hücresine eşit.b3'deki değerler değiştiğinde sayfa 2'deki değerlerde değişiyor.Benim istediğim h28 hücresindeki değeri manuel olarak elimde değiştirebilmek ve s1'deki b3 hücresine yansıtmak.Ama h28'e tıklayınca förmüller çıkıyor.Förmül çıkmadan bunu nasıl yaparım?

 

[uzmanamele]

merhaba

aşağıdaki gibi bir kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [h28]) Is Nothing Then Exit Sub
    Sheets("sayfa1").[b5] = [h28].Value
End Sub

benzer şekilde; sayfa1.B5 değiştiğinde de sayfa2.h28 değerini değiştirebilirsiniz.

 

[Erkand]

merhaba

aşağıdaki gibi bir kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [h28]) Is Nothing Then Exit Sub
    Sheets("sayfa1").[b5] = [h28].Value
End Sub

benzer şekilde; sayfa1.B5 değiştiğinde de sayfa2.h28 değerini değiştirebilirsiniz.

Öneriniz için teşekkürler ama olmuyor.Rica etsem son eklediğim dosyayı indirir misin demek istediğimi daha net göreceksiniz.
h28'e tıklayınca =Sayfa1!B5 gibi formülü çıkıyor ama değişiklik yapamıyorum.Dosyanın fonksiyorları var.
Hala yardımızı bekliyorum : )

 

[uzmanamele]

merhaba
sayfa2.H28 değerini el ile değiştirdiğinizde; sayfa1.B3 değişsin istiyorsunuz, aynı şekilde sayfa1.B3 değiştiğinde de sayfa2.H28 değişsin istiyorsunuz.
anladığım doğruysa bunu yapmak için yerleşik formül kullanamazsınız. bunun için makro olması gerekir. önerdiğim makro bunu yapar. benzer şekilde diğer hücreler değiştiğinde de bunu yapabilirsiniz.
benim anladığım bu, değilse biraz daha açıklayınız.

 

[Erkand]

merhaba
sayfa2.H28 değerini el ile değiştirdiğinizde; sayfa1.B3 değişsin istiyorsunuz, aynı şekilde sayfa1.B3 değiştiğinde de sayfa2.H28 değişsin istiyorsunuz.
anladığım doğruysa bunu yapmak için yerleşik formül kullanamazsınız. bunun için makro olması gerekir. önerdiğim makro bunu yapar. benzer şekilde diğer hücreler değiştiğinde de bunu yapabilirsiniz.
benim anladığım bu, değilse biraz daha açıklayınız.

Hocam verdiğiniz makro kodlarını visual basic düzenleyicisinde entegre ettim fakat olmadı yani yapamadım.H28 boş kalıyor.Sizi uğraştırıyorum ama örnek üzerinde gösterirseniz sevinirim.

 

[Erkand]

Öncelikle ard arda mesaj attığım için kusura bakmayın.

Biraz araştırıp yardım aldıktan sonra şöyle bir düzenleme yaptım kodlarımda;

sayfa 1 için

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b3]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Cells(28, "h").Value = Cells(3, "b").Value
End Sub

sayfa 2'deki kodlar modefiye edilip;

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim BUL As Range
        If Intersect(Target, [B5:C65536]) Is Nothing Then
        If Intersect(Target, [h28]) Is Nothing Then Exit Sub
        Sheets("sayfa1").Cells(3, 2).Value = Cells(28, "h").Value
        Exit Sub
        End If
        If Target.Cells.Count > 1 Then Exit Sub
        If Target.Column = 2 And Target <> "" Then
        Target.Offset(0, 1) = WorksheetFunction.HLookup(Target, Sheets("Sayfa1").Rows("2:3"), 2, 0)
        ElseIf Target.Column = 3 And Target <> "" Then
        Set BUL = Sheets("Sayfa1").Rows("2:2").Find(Cells(Target.Row, "B"), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
        Sheets("Sayfa1").Cells(3, BUL.Column) = Target
        End If
        End If
    End Sub

haline geldi.Tam olarak istediğim şeyi yapıyor ama hata veriyor excel yeniden başlıyor.Acaba bu konu hakkında yorumu olan var mı?

 

[Erkand]

yukarıdaki kodumu sonsuz döngüden çıkartmak için gerekli yardım bekliyorum : )