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 18-12-2017, 07:56   #1
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan Makro ile Özel Yapıştır

merhaba,

dosya_adi = Yol & "\" & k_dosya_adi & ".xlsx"
Set K2 = Excel_Uygulama.Workbooks.Open(dosya_adi)
Set S1 = K2.Worksheets("Sheet1")
Son = S1.Range("C:C").Cells.SpecialCells(xlCellTypeConst ants).Count
'MsgBox (Son)

S1.Range(k_range & Son).Copy K1.Sheets(kontrol_noktasi_kodu).Range(c_baslangic)
K2.Close False

kapalı iki dosya arası veri kopyalamak için kullandığım kod bu şekilde, bu koda özel yapıştır kodunu nasıl ekleyebilirim ?

kopyalanan veriyi değer olarak yapıştırmak istiyorum.

Bir de sola hizalanabilir mi böyle bit şey mümkün mü?

Teşekkürler..
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 08:08   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,553
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Aşağıdaki şekilde deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
dosya_adi = Yol & "\" & k_dosya_adi & ".xlsx"
Set K2 = Excel_Uygulama.Workbooks.Open(dosya_adi)
Set S1 = K2.Worksheets("Sheet1")
Son = S1.Range("C:C").Cells.SpecialCells(xlCellTypeConstants).Count
'MsgBox (Son)

S1.Range(k_range & Son).Copy Destination:=K1.Sheets(kontrol_noktasi_kodu).Range(c_baslangic).PasteSpecial Paste:=xlPasteValues
K2.Close False
__________________
www.asriakdeniz.com

Bu mesaj en son " 18-12-2017 " tarihinde saat 08:51 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 08:16   #3
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Maalesef hata verdi.
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 08:52   #4
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,553
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Bende test edemedim.
Bir de bu şekilde deneyin. Kod güncellendi.

__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 09:23   #5
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Malesef yine hata verdi. Tamamını paylaşmsam daha yararlı olacak gibi. "PasteSpecial Paste:" ile çözemedim bir türlü sorunu.. İlginize teşekkür ederim...

Sub Kopyala()
'
' Kopyala Makro
'
' Klavye Kısayolu: Ctrl+x

Dim K1 As Object, K2 As Object, S1 As Worksheet, Son As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set Excel_Uygulama = CreateObject("Excel.Application")
Excel_Uygulama.Visible = False

' 1 ------------------------------------------------
MsgBox ("Kaynak dosyaların olduğu klasörü seçin")

kaynak_path = GetFolder("C:\")

'Yol = ActiveWorkbook.Path
Yol = kaynak_path

' 2 -------------------------------------------------
MsgBox ("Çalışma kağıdını seçin")

calisma_kagidi = GetFile("C:\")

Set K1 = Excel_Uygulama.Workbooks.Open(calisma_kagidi)

For Each c In ActiveSheet.Range("A3:a34").Cells

If c.Value = "Evet" Then
For Each cc In ActiveSheet.Range("A" & c.Row & ":j" & c.Row).Cells
If cc.Column = 3 Then
kontrol_noktasi_kodu = cc.Value
ElseIf cc.Column = 4 Then
c_baslangic = cc.Value
ElseIf cc.Column = 8 Then
k_dosya_adi = cc.Value
ElseIf cc.Column = 9 Then
k_range_start = cc.Value
ElseIf cc.Column = 10 Then
k_range_end = cc.Value
End If

Next cc

k_range = k_range_start & ":" & k_range_end

dosya_adi = Yol & "\" & k_dosya_adi & ".xlsx"
Set K2 = Excel_Uygulama.Workbooks.Open(dosya_adi)
Set S1 = K2.Worksheets("Sheet1")
Son = S1.Range("C:C").Cells.SpecialCells(xlCellTypeConst ants).Count
'MsgBox (Son)


S1.Range(k_range & Son).Copy K1.Sheets(kontrol_noktasi_kodu).Range(c_baslangic)
K2.Close False


End If
Next c

K1.Save
K1.Close True

Set S1 = Nothing
Set K1 = Nothing
Set K2 = Nothing
Set Excel_Uygulama = Nothing

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
'
End Sub
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-12-2017, 16:58   #6
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Biraz karmaşık oldu sanırım...
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2018, 19:28   #7
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Yardımcı olabilicek olan var mı ? Çıkamadım işin içinden
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-01-2018, 14:59   #8
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

// GÜncel//
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-02-2018, 01:37   #9
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,846
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Kopyalama işlemini yapan satırı aşağıdaki gibi değiştirip deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
S1.Range(k_range & Son).Copy
K1.Sheets(kontrol_noktasi_kodu).Range(c_baslangic).PasteSpecial Paste:=xlPasteValues
Selection.HorizontalAlignment = xlLeft
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-02-2018, 09:42   #10
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

İlginize teşekkür ederim.

Selection.HorizontalAlignment = xlLeft

burda hata aldım.
schlecht Ç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 04:44


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden