Hücrelerin Kopyasını Almak

[Mikdad]

S.a Dostlarım,
Ekte vermiş olduğum belgeyi incelediğinizde VERİ sayfasında
kişi kodu adı soyadı ili ilçesi vs
gibi alanlar var
BARKOD SAYFASINDA İSE
yine bu bilgilerin alt alta alınmış halleri var.
benim yapmak istediğim şey şu
VERİ sayfasında kimin kişi koduna tıklarsam BARKOD sayfasında ki alanlar o şekilde değişecek.
Şimdiden Teşekkür Ederim.

 

[Ömer BARAN]

Merhaba VERİ sayfasının kod bölümüne aşağıdaki kod'u yapıştırın ve A sütununda dolu hücrelere fareyle çift tıklayarak sonucu gözlemleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A2:A[B][COLOR="Red"]100[/COLOR][/B]]) Is Nothing Then Exit Sub
    If Target <> "" Then
a = ActiveCell.Row
Sheets("BARKOD").Cells(1, 3) = Sheets("VERİ").Cells(a, 2)
Sheets("BARKOD").Cells(2, 3) = Sheets("VERİ").Cells(a, 1)
Sheets("BARKOD").Cells(3, 3) = Sheets("VERİ").Cells(a, 3)
Sheets("BARKOD").Cells(4, 3) = Sheets("VERİ").Cells(a, 4)
    End If
End Sub

 

[Mikdad]

Merhaba VERİ sayfasının kod bölümüne aşağıdaki kod'u yapıştırın ve A sütununda dolu hücrelere fareyle çift tıklayarak sonucu gözlemleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A2:A[B][COLOR="Red"]100[/COLOR][/B]]) Is Nothing Then Exit Sub
    If Target <> "" Then
a = ActiveCell.Row
Sheets("BARKOD").Cells(1, 3) = Sheets("VERİ").Cells(a, 2)
Sheets("BARKOD").Cells(2, 3) = Sheets("VERİ").Cells(a, 1)
Sheets("BARKOD").Cells(3, 3) = Sheets("VERİ").Cells(a, 3)
Sheets("BARKOD").Cells(4, 3) = Sheets("VERİ").Cells(a, 4)
    End If
End Sub

kodu ekledim ama hiç bir şekilde çalışmadı yani çift tıkladığımızda da bbir işe yaramadı sanki kod çalışmadı. size vermiş olduğum excel dosyasına işleyip gönderebilirmisiniz? acaba ben bir yanlış yapıyorum

 

[Mdemir63]

kodu ekledim ama hiç bir şekilde çalışmadı yani çift tıkladığımızda da bbir işe yaramadı sanki kod çalışmadı. size vermiş olduğum excel dosyasına işleyip gönderebilirmisiniz? acaba ben bir yanlış yapıyorum

Sayın mikdad. sayın Ömer.baran 'ın verdiği kodlar çok güzel çalışıyor. hatta ilave olarak çift tıkladığınızda BARKOD sayfası açılsın diyew ben de ekleme yaptım.

Dosyanız ekte.

 

[Mikdad]

Sayın mikdad. sayın Ömer.baran 'ın verdiği kodlar çok güzel çalışıyor. hatta ilave olarak çift tıkladığınızda BARKOD sayfası açılsın diyew ben de ekleme yaptım.

Dosyanız ekte.

s.a hocam Allah razı olsun. sizin göndermiş olduğunuz sayfadaki kodu aldım kendi sayfa ekledim takır takır çalışıyor. ama daha önce niye çalışmadı anlamadım. benim excel dosyasının uzantası xls sizin gönderdiğniiz ise xlsm ondan olabilir mi?

 

[Mdemir63]

s.a hocam Allah razı olsun. sizin göndermiş olduğunuz sayfadaki kodu aldım kendi sayfa ekledim takır takır çalışıyor. ama daha önce niye çalışmadı anlamadım. benim excel dosyasının uzantası xls sizin gönderdiğniiz ise xlsm ondan olabilir mi?

Selamlar

Siz sanırım ofis 2003 kullanıyorsun.
dikkat ederseniz benim gönderdiğim dosya makro içerebilen dosyadır. Sorun çözüldüğüne göre önemli değil. kolay gelsin size
iyi çalışmalar

 

[Mikdad]

S.a hocam, bir şey daha soracağım,
barkod sayfasında a1,b1,c1 hücrelerini birleştirmem gerekiyor. birleştirdiğim zaman kod çalışmıyor. kodta nasıl bir değşiiklik yapmam lazım

 

[Mdemir63]

S.a hocam, bir şey daha soracağım,
barkod sayfasında a1,b1,c1 hücrelerini birleştirmem gerekiyor. birleştirdiğim zaman kod çalışmıyor. kodta nasıl bir değşiiklik yapmam lazım

Selamlar

Birleştirdiğinizde çalışmaz. Ancak birleştirme işleminden sonra hangi sütuna alt alta getirmek istediğinizi belirtmelisiniz.

 

[Mikdad]

Selamlar

Birleştirdiğinizde çalışmaz. Ancak birleştirme işleminden sonra hangi sütuna alt alta getirmek istediğinizi belirtmelisiniz.

tamam hocam allah razı olsun.hakkınızı helal edin sizi de yordum. ama bir önceki mesajda
""Siz sanırım ofis 2003 kullanıyorsun."" diye yazmıştınız. ben office 2013 kullanıyorum. eğer doğru anladı isem bu tarz kodları yapıştırmadan önce sayfamı ""dosya makro içerebilen dosya"" şeklinde mi kayıt etmeliyim?

 

[Mdemir63]

tamam hocam allah razı olsun.hakkınızı helal edin sizi de yordum. ama bir önceki mesajda
""Siz sanırım ofis 2003 kullanıyorsun."" diye yazmıştınız. ben office 2013 kullanıyorum. eğer doğru anladı isem bu tarz kodları yapıştırmadan önce sayfamı ""dosya makro içerebilen dosya"" şeklinde mi kayıt etmeliyim?

Selamlar

Ben ofis2010 kullanıyorum ve kaydederken eğer dosyamda makro var ise makro içerebilen dosya şeklinde kaydediyorum. Ofis2013 de de aynısımıdır açıkçası bilmiyorum. İsterseniz makro içerebilen dosya olarak kaydedip deneyebilirsiniz.

kolay gelsin.

 

[KMLZDMR]

konunun devamına sorum olacak

ofice2003 kullanmaktayım
yukarıdaki makronun devamına

Sheets("BARKOD").Cells(5, 3) = Sheets("VERİ").Cells(a, 5)
Sheets("BARKOD").Cells(6, 3) = Sheets("VERİ").Cells(a, 6)

ekledim ancak veri sayfasındaki E sütunundaki mahalle ve F sütunundaki Ek1
barkod sayfasına gelmedi... ne/nasıl yaparsam gelir.

Teşekkürler.

 

[Mdemir63]

ofice2003 kullanmaktayım
yukarıdaki makronun devamına

Sheets("BARKOD").Cells(5, 3) = Sheets("VERİ").Cells(a, 5)
Sheets("BARKOD").Cells(6, 3) = Sheets("VERİ").Cells(a, 6)

ekledim ancak veri sayfasındaki E sütunundaki mahalle ve F sütunundaki Ek1
barkod sayfasına gelmedi... ne/nasıl yaparsam gelir.

Teşekkürler.

Selamlar
Ben denedim getiriyor. Tekrar bir daha kontrol eder misiniz.