• Web sitemize destek olmak, Hazır Excel Dosyaları indirmek ve sitemizi reklamsız kullanmak için VIP Üyelik Satın alabilirsiniz.
    Hesabını VIP Üyeliğe Yükselt

Çözüldü Bilgiler yapıştırılınca butonlar küçülüyor

ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba hayırlı sabahlar.

Ekte gönderdiğim excel dosyamın 2.sayfasındaki bilgileri A sütunu ile Rakam satırının köşesinden tüm sayfayı seçip
kopyalayıp (bu bilgileri başka programdan alıyorum), 1.sayfanın A1 hücresine yapıştırdığım da 1.sayfanın 1.satırında bulunan butonlar küçülüyor.

Butonların küçülmemesi için ne yapmam gerekir, yardımcı olur musunuz?
 

Ekli dosyalar

  • Örnek1.xlsm
    16.6 KB · Görüntüleme: 5
Çözüm
Dosya görmeyince biraz havanda su dövmek oluyor ama şöyle tekrar deneyin.
Ek olarak, mevcut dış bağlantı ve otomatik oluşan ad tanımlamalarını da temizlemekte yarar var.

Denemeyi bir de, koddaki .TextFilePlatform = 65001 kısmını .TextFilePlatform = 1254 olarak değiştirerek yaparsınız.

C#:
Sub VERI_AL()
Set bu = ThisWorkbook.Sheets("Sayfa1")
Set ds = Application.FileDialog(msoFileDialogFilePicker)
With ds
    .Filters.Clear: .Title = " ..::   " & "VERİ ALINACAK CSV Belgesi Seç" & "   ::.."
    .InitialView = msoFileDialogViewList: .InitialFileName = Environ("Temp") & "\"
    .Filters.Add "CSV Dosyaları", "*.CSV": .AllowMultiSelect = False
    If .Show = 0...

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Dosya görmeyince biraz havanda su dövmek oluyor ama şöyle tekrar deneyin.
Ek olarak, mevcut dış bağlantı ve otomatik oluşan ad tanımlamalarını da temizlemekte yarar var.

Denemeyi bir de, koddaki .TextFilePlatform = 65001 kısmını .TextFilePlatform = 1254 olarak değiştirerek yaparsınız.

C#:
Sub VERI_AL()
Set bu = ThisWorkbook.Sheets("Sayfa1")
Set ds = Application.FileDialog(msoFileDialogFilePicker)
With ds
    .Filters.Clear: .Title = " ..::   " & "VERİ ALINACAK CSV Belgesi Seç" & "   ::.."
    .InitialView = msoFileDialogViewList: .InitialFileName = Environ("Temp") & "\"
    .Filters.Add "CSV Dosyaları", "*.CSV": .AllowMultiSelect = False
    If .Show = 0 Then: MsgBox "VERİ ALINACAK Dosya seçmediniz!.", vbCritical: Exit Sub
End With
bu.Cells.ClearContents: dosya = ds.SelectedItems(1)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
    dosya, Destination:=bu.Range("$A$1"))
    .PreserveFormatting = True: .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote: .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = True: .TextFileCommaDelimiter = True
    .RefreshStyle = xlOverwriteCells: .TextFilePlatform = 65001: .Refresh BackgroundQuery:=False
End With
For Each adlar In ActiveWorkbook.Names: adlar.Delete: Next adlar
For Each bag In ActiveSheet.QueryTables: bag.Delete: Next bag
End Sub
 
Çözüm

ASLAN7410

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2013
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Sayın Ömer Bey, en son kod tam istediğim gibi çalışıyor. 65001 olan tam sonuç veriyor, 1254 yazınca Türkçe karakterlerinde hata veriyor.

Ellerinize sağlık çok teşekkür ediyorum. Hayırlı sabahlar.
 
Üst