Değeri başka hücreye kopyalama

[ant1905]

Arkadaşlar ve Üstatlar hepinize günaydın,

Aslında çok basit bir sorun ama benim bu konudaki bilgim içinden çıkmaya yetmedi. Yapmak istediğim şey bir hücreye tıklandığında belli hücreleri belli hücrelere değer olarak kopyalatmak. İlgilenen arkadaşlara şimdiden çok teşekkür ederim.
Detaylı örnek dosyayı ekledim.

 

[zafer]

Merhaba

Ekli dosyayı inceleyini.

C sütunundaki herhangi bi satıra fare ile çift tıklatınız.

 

[ant1905]

Üstadım elinize sağlık.. Çok teşekkür ederim. Elinize beyninize sağlık..

 

[ant1905]

Bunu oluşturduğum herhangi bir butona atamak için

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

bu satırda beforedoubleclick kısmında mı değişiklik yapmak gerekiyor?

 

[Merhum İdris SERDAR]

Arkadaşlar ve Üstatlar hepinize günaydın,

Aslında çok basit bir sorun ama benim bu konudaki bilgim içinden çıkmaya yetmedi. Yapmak istediğim şey bir hücreye tıklandığında belli hücreleri belli hücrelere değer olarak kopyalatmak. İlgilenen arkadaşlara şimdiden çok teşekkür ederim.
Detaylı örnek dosyayı ekledim.

.

Bu şekilde de olur.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C1:C10")) Is Nothing Then [h1] = Target.Offset(0, -1)
If Not Intersect(Target, Range("C1:C10")) Is Nothing Then [h3] = Target.Offset(0, 1)

End Sub

C1:C10'u istediğiniz kadar uzatabilirsiniz.


.

 

[zafer]

Merhaba

Evet.Kodların son kısmına yeni oluşturduğunuz makronun ismini yazacaksınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range("h1") = Target.Cells.Offset(0, -1)
Range("h3") = Target.Cells.Offset(0, 1)
End If

Oluşturduğunuz makro ismi
End Sub

 

[ant1905]

Üstatlar ikinize de çok teşekkür ederim. Bu nasıl bir enerji bu nasıl bir yardımseverliktir ben bu işin içinden çıkamadım. herseferinde hızır gibi yetişiyorsunuz ve de herkese yetişiyorsunuz

tekrar tekrar teşekkürler.

 

[ant1905]

Zafer Moderatörüm
Makro oluşturdum. OTOMO diye isim verdim. Sonra dediğiniz gibi düğmeye atadım ama çalıştıramıyorum yanlışım nerede???

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range("h1") = Target.Cells.Offset(0, -1)
Range("h3") = Target.Cells.Offset(0, 1)
End If

OTOMO

End Sub
------------------------------------------------------------------------------------------
Sub OTOMO()

End Sub

 

[ant1905]

Zafer Moderatörüm
Makro oluşturdum. OTOMO diye isim verdim. Sonra dediğiniz gibi düğmeye atadım ama çalıştıramıyorum yanlışım nerede???

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range("h1") = Target.Cells.Offset(0, -1)
Range("h3") = Target.Cells.Offset(0, 1)
End If

OTOMO

End Sub
------------------------------------------------------------------------------------------
Sub OTOMO()

End Sub

 

[zafer]

Merhaba

C sütunundaki hücrelere fare ile çift tıklatıyorsunuz.
makro önce H1 ve H3 hücrelerine veri yazar.

Sonra OTOMO makrosuna gider

OTOMO makrosunu buraya yapıştırabilirmisiniz.

Aşağıdaki ekli dosyayı tekrar inceleyiniz.

Örnek yaptım.
C sütununa çift tıkladıktan sonra
A10 ile A20 arasına sıralı veri yazacaktır.

Çalışma biçimi olarak kodlara bakınız.

 

[ant1905]

hemen bakıyorum

 

[zafer]

Merhaba

Makronuzda hesapla yapıyorsanız.
hesaplama kapalı olduğu için olabilirmi

Eğer öyleyse

Sub OTOMO()
Application.Calculation = xlAutomatic

....
....

Application.Calculation = xlManual
end sub

Uygulayınız.

 

[ant1905]

Zafer hocam bu başka bir konu gibi olmuş sanki yada ben bugün aşırı yoruldum kafam basmıyor ...

Sabah verdiğiniz çözüm çalışıyordu ama tabii bir mantık hatası yapmıştım. Boş olan hücreye iki kere tıklayınca... evet istenilen hücreleri istenilen bölgelere kopyalıyordu fakat aynı anda hücre üzerinde F2 ye basılmış gibi reaksyon veriyordu. Bu yüzden bende şöyle düşündüm " ben buralara düğme oluştursam düğmeye basınca bu işi yapsa...?" diye düşündüm.

Demek istediğim oydu. Ama düğmeye göre offset olabiliyor mu onu bilemiyorum tabii.. Sizi yormamak için kendim denedim ama beceremedim. O yüzden ikinci kez sormak ihtiyacı doğdu.

 

[zafer]

Merhaba

Tek tek her hücreye düğme oluşturmanın anlamı yok.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range("h1") = Target.Cells.Offset(0, -1)
Range("h3") = Target.Cells.Offset(0, 1)
End If
Range("a1").Select
OTOMO
End Sub

Koyu renkli yeri ilave ederseniz. Hücre içinde kalmaz çift tıkladıktan sonra İşlemini yapar A1 hücresine gider .
sonra OTOMO makrosunu çalıştırır
offset 'den kastınızı anlayamadım. Ne yapmak istiyorsunuz.

 

[ant1905]

Çok doğru söylüyorsunuz. Tek tek zor tabii.. Sarı hücrelere çift tıklandığında F2 etkisinden nasıl kurtarırım diye düşününce o buton fikri ortaya çıktı.
Offset derken de şunu kastetmek istemiştim. hani kodda yazmışsınız ya tıklanan hücrenin solu -1 sağı 1 diye. Onu kastetmiştim.

Ben sizin ilk verdiğiniz haliyle kullanayım. Forumda birsürü insan soru soruyor sizin kıymetli vaktinizi detay birşey için meşgul ediyor olmak istemem üstadım.

 

[zafer]

Merhaba

Rica ederim. Yeterki biz sizlere birşeyler verebilelim.Zaten Forumumuzun amacıda budur.

Range("a1").Select
satırını ilave edin.Fare hücre içinde kalmaz.(f2 etkisinden)

Offset(satır, sütun)

0 satır
-1 sütun

Offset(0, -1) aktif hücrenin solundaki sütun
Offset(0,1) sağındaki sütun
Offset(1,0) Bir alttaki satır

gibi..

 

[ant1905]

Hocam şimdi süper oldu .... çok çok teşekkür ederim hem emeğinize hem sabrınıza..

 

[Korhan Ayhan]

Merhaba,

Ek bilgi;

Çift tıklama olayında imlecin hücre içinden çıkması için kodlarınıza aşağıdaki ifadeyi ekleyebilirsiniz.

Cancel = True

 

[ant1905]

Korhan Üstat size de çok teşekkür ederim. yazılanların hepsini not aldım.

 

[ant1905]

Zafer hocam verdiğiniz koda ek geldi.. Mantık kullanarak birleştirdim ve çalıştığını teyit ettim.
Yalnız ufacık bir sorunum var. Hedef kolon 2. olmasına rağmen çalışma sayfasında herhangi biryere tıkladığımda da kod çalışıyor.. Bu neden olabilir acaba?
Kodun son hali şu şekilde..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Range("a4") = Target.Cells.Offset(0, 421)
Range("a7") = Target.Cells.Offset(0, 423)
End If
Range("a1").Select
If Intersect(Target, Range("a16")) Is Nothing Then Exit Sub
Cancel = True
If Target.Text <> "" Then
Application.Goto Reference:=Target.Text
End If
End Sub