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 07-02-2018, 21:15   #11
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

merhaba, günlerdir uğraşıyorum fakat bir çözüm bulamadım.

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) .Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

K2.Close False

Set K2 = Excel_Uygulama.Workbooks.Open(dosya_adi)

burada hata alıyorum.

Bu mesaj en son " 07-02-2018 " tarihinde saat 21:26 itibariyle schlecht tarafından düzenlenmiştir....
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 13:14   #12
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Kopyalama sorununu çözdüm fakat bu seferde "excel pano üstündeki bilgi miktarı çok büyük" hatası
verdi. Çok araştırdım

Application.DisplayAlerts = False
Application.DisplayAlerts = True

ile sorunun çözülebileceğini yazanlar çok ama bu kodları nereye yazmalıyım.
Yardımlarınızı rica ediyorum.

İyi günler.
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 21:36   #13
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Hata nerede oluşuyorsa ondan önce False olanı, sonra da true olanı kullanmalısınız.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 21:58   #14
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Aslında hata değilde uyarı sanırım. Evet ya da Hayır diyince kopyalama işlemini yapıyor fakat Evet ya da Hayır a 25 kere basmam gerekiyor.
Bu uyarının çıkmaması mümkün mü?
Eklenmiş Resimler
Dosya Türü: png 1.PNG (9.5 KB, 4 Görüntülenme)
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 22:03   #15
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Kodlarınızı bilmeden cevap vermek zor. Kopyalama işleminden önce False satırını ekleyin, tüm işlemlerden sonra da True satırını ekleyip deneyin.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 22:49   #16
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

Function GetFile(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFilePicker)
fldr.Filters.Clear
fldr.Filters.Add "Excel files", "*.xlsx"
With fldr
.Title = "Select a File"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFile = sItem
Set fldr = Nothing
End Function



Sub Kopyala()
'
' Kopyala Makro
'



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
Application.DisplayAlerts = False

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

kaynak_path = GetFolder("C:\")

'Yol = ActiveWorkbook.Path
Yol = kaynak_path

' 2 -------------------------------------------------
MsgBox ("Bireysel Krediler Ç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:A150").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) .PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False






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

Kodlar bu şekilde dediğinizi yaptım ama malesef olmadı..
schlecht Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 23:08   #17
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Fikrim yok maalesef.

Yalnız kodda false satırı var ama true satırı yok. Aklınızda bulunsun false yaptığınız bir ayarı daha sonra true olarak düzeltmezseniz sürekli false olarak kalır, yani çalışmaz. Örneğin bu kodda pasiflediğiniz uyarılar nedeniyle artık hiç uyarı almazsınız.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2018, 23:16   #18
schlecht
Altın Üye
 
Giriş: 13/11/2009
Mesaj: 30
Excel Vers. ve Dili:
2009
Varsayılan

İlgilendiğiniz için teşekkürler. Bir çözüm bulursam paylaşırım. İyi geceler.
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 06:26


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