Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-06-2017, 16:31   #1
u.L.a.s
 
Giriş: 07/09/2008
Şehir: İstanbul
Mesaj: 502
Excel Vers. ve Dili:
2010 İngilizce
Varsayılan Bir hücredeki veriyi başka bir sheete copy paste yapmak

Merhabalar

Aşağıdaki gibi bir kod düzeneğim var.
Bir sheetimde ilk sütuna çift tıkladığım zaman tıkladığım hücrenin bulunduğu satırdaki B ve C hücresindeki verileri başka bir sheette ilk boş gördüğü yerde A ve B hücrelerine yapıştırıyor.
Buraya kadar herşey tamam bu şekilde çalışıyordum fakat ben biraz kodu geliştirmek istedim ama işin içinden çıkamadım
Şöyleki
Diğer sheette A hücresine B hücresindeki veri yapışıyor C hücresinede bu veriyi yapıştırmak istiyorum ama yanına birde sabit bir veri yazdırmak istiyorum.
O sabit veriyi dim komutu ile tesis string olarak tanımladım ve bu tesisin içeriğinide " Adsl Hat Tesisi" olarak yazdım

Yani C hücresine A hücresindeki veri ile birlikte bu tesis verisinide yazmasını istiyorum


aşağıdaki kod düzeneğindeki kalın olarak işaretlediğim kodu ben yapmaya çalıştım ama hata veriyor.

Örnek dosyada aşağıdaki linktedir

Bilgi ve yardımlarınızı rica ederim

http://www.dosya.tc/server8/tpzsjz/copypaste.rar.html

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim tesis As String
    If Target.Column = 1 Then
    Son = Sheet12.Range("A65536").End(3).Row + 1
    tesis = " Adsl Hat Tesisi"
    Range("B" & Target.Row).Copy
    Sheet12.Range("A" & Son).PasteSpecial
    Sheet12.Range("C" & atmtesis & Son).PasteSpecial
    Range("C" & Target.Row).Copy
    Sheet12.Range("B" & Son).PasteSpecial

    Sheets("Tesisler").Select
    End If
u.L.a.s Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 20:29   #2
PLİNT
 
Giriş: 30/12/2014
Şehir: Gürün
Mesaj: 1,074
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Aşağıdaki gibi; kopyalama sonunda "atmtesis" hücreye eklenebilir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim atmtesis As String
Dim s1, s2 As Worksheet
Set s1 = Sheets(1)
Set s2 = Sheets(2)
If Target.Column = 1 And Target.Value <> "" And Target.Row <> 1 Then
Son = s2.Range("A65536").End(3).Row + 1
atmtesis = " Atm Nok-Nok Adsl Hat Tesisi"
s1.Range("B" & Target.Row & ":C" & Target.Row).Copy s2.Range("A" & Son)
s2.Range("C" & Son) = s2.Range("A" & Son) & atmtesis
s1.Select
End If
End Sub 
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 09:39   #3
u.L.a.s
 
Giriş: 07/09/2008
Şehir: İstanbul
Mesaj: 502
Excel Vers. ve Dili:
2010 İngilizce
Varsayılan

Üstadım emeğine bilgine sağlık çok teşekkür ederim
u.L.a.s Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 00:42


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden