Hücre değiştirme

[Serdarland]

Merhaba. bi soruma cevap arıyordum yardımcı olursanız sevinirim.

G1 hücresindeki sayı kaç ise Asütunundaki değeri değiştirsin.
örnek
eğer G1 = 112 ise

A112 = 112. ama A sütunu.
Ama formül veya makro sadece G1deki değere eşit olan sütunu değiştirsin. Teşekkürler

 

[DeliBalta58]

hangi sayfara işlem yapmak istiyorsanız o sayfa adı üzerine gelip Kodu Görüntüle yi seçin gelen pencereye aşağıdaki kodları yapıştırın

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = Range("G1")
If Not Application.Intersect(Target, myRange) Is Nothing Then
Call Makro1
End If
End Sub

Sub Makro1()
Dim a As Integer
Columns("A:A").ClearContents
a = Range("G1").Value
Cells(a, 1) = Range("G1")
End Sub

 

[Serdarland]

gerçekten tam istediğim gibi olmuş çok teşekkür ederim ama G1 sürekli değişken olduğu için a sütunundaki hücre eş zamanlı olarak değişmiyor. bunu nasıl giderebilirim acaba :S

 

[Serdarland]

birde "a" sütunundaki hücre g1 deki değeri değilde mesela "serdar yazsın" !!!biliyorum birazcık çok şey istemiş gibi oldum. ama süzme için sabit değer gerekiyormuş :S

 

[Necdet]

Merhaba,

İlgili sayfanın kod bölümüne aşağıdaki kodları kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [G1]) Is Nothing Then Exit Sub
Cells([G1], 1) = "SerdarLand"
Son:
End Sub

 

[Serdarland]

necdet bey olmadı hata veriyor

 

[Skorpiyon]

Sayın Serdarland,

Sayın DeliBalta58'in vermiş olduğu kodlarda G sütunu her değiştiğinde işlem yapılıyor. "Serdar" yazması içinse yine Sayın Delibalta58'in vermiş olduğu kodlardaki aşağıdaki yeri değiştirin.

Sub Makro1()
Dim a As Integer
Columns("A:A").ClearContents
a = Range("G1").Value
Cells(a, 1) = "Serdar"
End Sub

 

[Serdarland]

teşekkür ederim

 

[Necdet]

Nerede hata verdi anlamadım.

Basit bir kod, bende çatır çatır çalışıyorda sizde nasıl çalışmaz?

 

[Skorpiyon]

Sayın Serdarland,

Necdet Hocam'ın kodları da çok güzel çalışıyor.
(Necdet Hocam sizin kodlarınıza hiç bakmadan cevap yazdığım için özür dilerim.)

 

[Serdarland]

tabiki benim hatam. hata veriyor yapmasını bilmezsen