Tıklanan bir hücreyi başka bir hücreye aktarma?

[saqwert]

ARkadaşlar merhaba exceli cok iyi bilmiyorum ama söyle bir sorunum var yardımınız olursa cok sevinirim ..
Örnegin Adan Zye ve 1 den 1000 ' e kadar veriler ile dolu bir sayfadan bir hücreye tıkladığım zaman aynı sayfada herhangi bir boş hücreye gösterme sansım varmıdır( Örnegin D25 e tıklayınca Z3434 de gösterme gibi?) simdiden tesekkürler

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?
a sütunundahi herhangi bir hücreyi çift tıklayarak deneyiniz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a1:a65536")) Is Nothing Then Exit Sub
[d5] = ActiveCell.Value
End Sub

 

[saqwert]

Çok teşekkür ederim aradığım tam olarak bu ve ben sadece her hangi bir sutundaki veriyi hemen sütunun en altında görmek istiyorum ve yanyana 10 tane sütunda çalışacağım bunu kullansam sorun olurmu yani? çünkü bana bundan 10 tane gerekiyor bi sayfada

 

[Necdet]

merhaba,

Örnek dosya ile sorunuzu destekleyiniz.

Sütunun en altında görünsün diyorsunuz satır sayısı sabit mi? Sabit değilse aynı sütunda her tıklayışta o sütunun altına sürekli ekler gider bu da sanırım yanlış olur.

 

[saqwert]

Dosyayı upload sorunum var söyle anlatayım daha acık cozdugum anda dosyayı upload ederim

A1den -A1000 e satır ve yanyana 10 tane sütun dusunun

A1001 deki satıra o üst sutunlardaki tıkladıgım verilerin gelmesini istiyorum mantık sizin gönderdiginiz sekilde ama 10 tane sütun var

 

[saqwert]

buyrun upload ettim örnek bu 0001den 20000e kadar satır olacak ve o sütunlardaki tıkladıgım yer asagıda tıklanan hücre kısmında cıkacak olay bu

 

[Necdet]

Merhaba,

Ekteki dosyayı inceleyiniz. Kırmızı olan yerleri kendinize göre uyarlayınız.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [[B][COLOR=red]A2:J15[/COLOR][/B]]) Is Nothing Then Exit Sub
Cells([COLOR=red][B]16[/B][/COLOR], Target.Column) = Target.Value
Son:
End Sub

 

[saqwert]

Cok tesekkür ederim emın olun az önce hayatımı kurtardınız Necdet Bey

 

[Necdet]

Rica ederim, güle güle kullanınız da; bu basit bir şey nasıl hayat kurtarır onu anlamadım

 

[saqwert]

BEnim için çok önemliydi Necdet Bey son bi sorum olacak bu son satırda cıkan degerleri sayfa2 de baska bir yere aktarabiliriz demi bir sorun olmaz sanırım..

 

[Necdet]

BEnim için çok önemliydi Necdet Bey son bi sorum olacak bu son satırda cıkan degerleri sayfa2 de baska bir yere aktarabiliriz demi bir sorun olmaz sanırım..

Bir sorun olmaz tabi ama isterseniz engelleyelim

 

[saqwert]

Yok gerek kalmadı Nejdet BEy sizden bi ricam daha olacak simdi 17000 kusur satır olacak sayfmda amaq ben bunlardan sadece 1 satırı sayfa asaıdada olsa yukarıdada olsa ortalardada işlem yapsam görebilirmiyim öyle bir imkan varmı acaba örnek verecek olursam 1. satırda işlem yaparken 17000. satıra inip kontrol etmemi önleyecek sekilde o 17000. toplam satırını her yerde görebilecegim birseye ihtiyacım var.. Cokmu abarttım bilmiyorum ama varsa cözümü size dua ederim..

 

[Necdet]

Merhaba,

Dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A2:J15]) Is Nothing Then Exit Sub
Cells(16, Target.Column) = Target.Value
ActiveSheet.Shapes("Picture 1").Top = ActiveCell.Offset(1, 0).Top
ActiveSheet.Shapes("Picture 1").Left = ActiveCell.Offset(2, 0).Left
Son:
End Sub

 

[saqwert]

Necdet BEy gercekten size söyleyecek söz bulamıyorum harikasınız çok tesekkür ederim aradıgım tam olarak buydu

 

[Necdet]

Necdet BEy gercekten size söyleyecek söz bulamıyorum harikasınız çok tesekkür ederim aradıgım tam olarak buydu

Güle güle kullanınız.

 

[saqwert]

Necdet BEy son sorun bu gonderdiginiz kodu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A6:T49997]) Is Nothing Then Exit Sub
Cells(50000, Target.Column) = Target.Value

ActiveSheet.Shapes("Picture 1").Top = ActiveCell.Offset(1, 0).Top
ActiveSheet.Shapes("Picture 1").Left = ActiveCell.Offset(2, 0).Left


Son:

End Sub

Bu sekilde kullanmam gerekiyor yanı A50000 e kadar inmem bunu yaptıgım zaman calıstıramadım
yani ilk gönderdiginiz sekl çalışıyor ancak en son yaptıgınız olmuyor bir türlü

 

[Necdet]

Merhaba,

Sorun hâlâ devam ediyorsa kodları kopyaladıktan sonra başka sayfaya geçip tekrar ilgili sayfaya geçiniz ya da dosyayı kapatıp tekrar açınız.

 

[saqwert]

Necdet BEy tekrar merhaba sorunum devam ediyor hiç bir sekilde o barı genişletemiyorum ve kodlarda en ufak bir değişiklik yaptıgım an hata veriyor yani bu cok gerekli olan tıklanınca cıkan barı hiç bir sekilde genişletemedim..

 

[saqwert]

TEk istedigim 16. satıra bagladıgınız barı acıp 50000. satıra baglayabilmek bunu yaparsam işim cözülebilecek ve beceremedim bir türlü yardımınıza ihtiyacım var simdiden tesekkür ederim

 

[Necdet]

Peki çalışmıyor diyorsunuz da, çalışmayan ne? tam olarak sorunu açıklar mısınız?