Combobox ile gelen veriyi değiştirmek??

[Erkand]

Merhaba;

Projemde kullanmak üzere excelde bi' kaç işlem yapmam gerekiyor.Fakat çok acemi bi' excel kullanıcısı olduğum için sitede ya doğru aratamadım ya da yok bulamadım derdimi size sorayım dedim.

Combobox ile diğer sayfadan çektiğimiz veriyi misal gelen değer 20 çıktı.Ben bu "20" değerini manuel olarak "40" yapınca diğer sayfada değişsin istiyorum.

Farklı bi' yöntemle de olabilir yol gösterirseniz sevinirim.Şimdiden sağolun.

Derdimi anlatan birde resim.

 

[mustafaine1]

Tam olarak ne istediginizi anlayamadim linklicekmisiniz o satira yoksa goal seek uygulamasi gibi birsey mi istiyorsunuz kirmizi fontla yaptiginiz aciklama anlasilmaz duruyor sorun daha komplike haldeyse lutfen dosya ekleyiniz..

 

[Erkand]

Çok fazla forum kurcalamıştım.

Combobox ile Listeleyip çektiğim veriyi (misal:20 değeri oluyor) aynı sayfada değiştirince diğer sayfada değiştirmek istiyorum.

Başka bir sayfadaki veriyi değiştirmek diye basitleştirilebilir.

 

[mustafaine1]

O halde soru su olsun baska sayfada olan 20`nizde comboboxtan mi aliyor verisini... Eger durum oyleyse sayfa 2 deki degiscek satirinizi a1 farzedelim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sheet2").Range("a1") = ComboBox1.Value
End Sub

kodlarini vba`niza girerseniz istediginiz olacaktir..

 

[Erkand]

Yardımınız için teşekkür ederim.acemi bir kullanıcı olduğum için istediğimi anlatamıyorum : 9

Örnek dosyada D2 değerini çekiyorum ve onu değiştirdiğim zaman(her nasıl olacaksa) Diğer sayfadakide değişsin istiyorum.

 

[Orion1]

Dosyanzı ektedir.

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
Sub Açılan1_Değiştir()
Range("D2").Value = Sheets("Sayfa1").Cells(Range("A1").Value + 2, "B").Value
End Sub

 

[Erkand]

Dosyanzı ektedir.

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
Sub Açılan1_Değiştir()
Range("D2").Value = Sheets("Sayfa1").Cells(Range("A1").Value + 2, "B").Value
End Sub

Çok teşekkür ederim.

 

[Orion1]

Çok teşekkür ederim.

Rica ederim.

 

[mustafaine1]

biz zaten en bastan combobox olarak bile yanlis gidiyomusuz

 

[Erkand]

Merhaba

exceli solidworks programının içinde kullanıyorum.Sizin verdiğiniz kodu diğer dosyalarıma entegre etmeye çalışıyorum fakat çalıştıramadım.

Verdiğiniz kodları araçlar> makro> vba düzenleyicisi>insert> module> kısmından ekleyip gerekli şekilde düzenliyorum fakat çalışmıyor.Çok acemi bir kullanıcı olduğum için yanlış nerde diye acaba sormak istedim.Şimdiden yardımınız için teşekkür ederim.

 

[Erkand]

Yardım edecek doğrumu yanlışımı gösterecek birileri yok mu?

 

[mustafaine1]

Gercek calismanizdaki sayfa isimleri yahut rangelerinizde farkliliklar vardir gercek calisma olmadan + bir yardim etmemiz mumkun degil, modul eklemeyi dogru yapmissiniz..