ŞARTLI HÜCREDEN HÜCREYE VERİ ALMA

[cocoa35]

Arkadaşlar şöyle bir makroya ihtiyacım var, örneğin Sayfa 1 A1 hücresinde değer devamlı değişiyor, Sayfa 2 de B5 Hücresi, EĞER Sayfa2 D8 =1 ise A1 de yazan değeri B5 Hücresine yazsın, EĞER Sayfa2 D8 = 2 ise B6 Hücresi Sayfa 1 A1 Hücre değerini alsın ama bu arada Sayfa2 D8 = 1 'ken B5 Hücresine yazılan değer aynı kalsın A1 Değişti diye değişmesin, aynı şekilde D8 =3 ise Sayfa A1 Hücre değeri Sayfa2 B7 Hücresine yazsın ama B5 ve B6 Hücre değerleri aynı kalsın değişmesin! Biraz karışık gibi gözüküyor ama özet olarak, Sayfa1 A1 hücredeki değeri şartlı olarak Sayfa2 D8 değerine göre farklı hücrelere yazdırmak istiyorum. D8 değişince B5,B6,B7 Hücreleri değişmesin ne yazdıysa o kalsın ne zaman D8 istenilen rakama gelirse o zaman A1 değerini alsın ! bu şekilde bir makro olurmu acaba!

 

[cocoa35]

Biraz araştırdıktan sonra Kopyala Yapıştır Makrosu benim istemiş olduğum makro olduğunu gördüm vede ek'te istediğime yakın bir işlem yaptırabiliyorum. Örnekte Sayfa aktif olunca C14=1 ise kopyalayapıştır makrosu çalışıyor ancak Diyelimki C14 Değişti ve tekrar C14=1 oldu makro çalışmıyor! yani benim istediğim ne zaman C14=1 'e gelirse makro çalışsın! bu konuda yardım lütfen

 

[ÖmerFaruk]

C14 hücresini elle mi değiştiriyorsunuz yoksa C14 bir formül ya da kod ile mi değişiyor?

 

[cocoa35]

Merhaba C14 ‘e userfom textbox’dan 1,2,3,4 gibi rakamlar yazılıyor

 

[ÖmerFaruk]

O halde ilgili textboxdan C14 e 1 yazıldığını sorgulayıp sorgu sonucu doğru ise ilgili kodları çalıştırmalısınız
Mesela

'Önceki diğer kodlarınız'
'..................'
If Range("C14")<>1 then Kontrol=True
Range("C14")=TextBox1
If Range("C14")=1 and Kontrol then
    'C14 bir olduğunda çalışacak
    'ilgili kodlarınız
End if
Kontrol=False
'.........................'
' sonraki diğer kodlarınız'

 

[cocoa35]

O halde ilgili textboxdan C14 e 1 yazıldığını sorgulayıp sorgu sonucu doğru ise ilgili kodları çalıştırmalısınız
Mesela

'Önceki diğer kodlarınız'
'..................'
If Range("C14")<>1 then Kontrol=True
Range("C14")=TextBox1
If Range("C14")=1 and Kontrol then
    'C14 bir olduğunda çalışacak
    'ilgili kodlarınız
End if
Kontrol=False
'.........................'
' sonraki diğer kodlarınız'

Merhaba, tetikleme işlemini ben hallettim ancak sorun şu ( Ben daha önceden farkına varmadım) macro kopyalama yaparken hücre içindeki formülü kopyalıyor ! ben formülün kopyalanmasını istemiyorum gözüken rakkamın sadece kopyalanmasını istiyorum! bu şekilde macro nasıl düzenlenir!

 

[ÖmerFaruk]

Forumda PasteSpecial diye arama yaparak ya da
kendiniz Makro Kaydet yöntemiyle Sadece Değerleri Kopyalama işlemini elle yapıp oluşan kodları inceleyebilirseniz çözersiniz bu problemi