Sorgu için arama sonuçları: sayfayı farklı kaydet

Makro içeren bir excel dosyam var. CTRL + R kombinasyonu ile kaydedilmesi gerekiyor. Dolayısıyla sol üstten Kaydet, Farklı Kaydet veya CTRL + S kombinasyonları uygulandıgında hata mesajı cıksın istiyorum. Belgeyi kaydetmek için CTRL + R kombinasyonunu kullanınız şeklinde bir msgbox olabilir. Bu...

Excel'de bir şekli silinmekten korumak için doğrudan bir seçenek bulunmuyor dosyayı .xls den farklı kaydet ile makro kabul edilen dosya ve .xslm formatında save edin Sonra vba edtorunu açıp şu kodları yerleştirin ve save edin Private Sub Worksheet_BeforeDeleteShape(ByVal Sh As Shape) If...

Aşağıda, Excel dosyanızdaki her bir sayfayı ayrı bir PDF dosyası olarak kaydedecek bir VBA makrosu örneği bulabilirsiniz. Bu makro, her sayfanın adını kullanarak PDF dosyalarını adlandıracaktır. Makro Kodunu Eklemek için Adımlar: Excel dosyanızı açın. Alt + F11 tuşlarına basarak VBA editörünü...

Merhaba, İlginiz için teşekkür ederim. Kodu denedim, fakat şöyle bir durum var. Makro çalıştığında öncesinde sadece uyarı kodu geliyordu, kaydetme ekranı hiç görünmeden kaydedilmiştir yazıyordu ve dosya kaydedilmiş oluyordu. Şimdi ilettiğiniz kod ile, ilgili sayfayı farklı bir excel çalışma...

Aşağıdaki kod ile de başka bir sayfayı belirtilen adrese farklı kaydet işlemi yapıyor ama onda bir sorun olmuyor ve farklı kaydediyor. okuladi = Sheets("sabitler").Range("e5").Value Set fso = CreateObject("scripting.filesystemobject") Set wbmevcut = ActiveWorkbook Sheets(Array("YÜKLEME")).Copy...

Merhaba arkadaşlar Aşağıdaki kodlar ile Çalışma kitabı içindeki bir sayfayı belirtilen adrese farklı kaydediyorum. Ama Excel'in bazı sürümlerinde kırmızı renkli kod satırında hata veriyor. Saveas yöntemi başarısız diye. Uzantıları farklı olduğundan olabilir mi. Benim kullandığım Excel 2010...

Asağıdaki makroda sayfayı kopyalayıp farklı kaydediyorum. Sayfadaki formüller yerine sadece degerleri kopyalamasi icin nasıl bir ekleme yapabiliriz... tsk ederim... Sub kaydet() Klasor = ThisWorkbook.Path & "\" Dosya_Adi = Worksheets("miatlı").Range("F13").Value 'kayıt adı Sayfa_Adı =...

Anladım hocam. İlginize teşekkür ederim.

O bölümü işaretlerken amacım o satırı kullanmayın anlamındaydı. Ama siz direkt .Select kısmını silerek tamamen hatalı bir işlem yapmışsınız. Bunlar hep kopyala-yapıştır yapmaktan kaynaklanıyor... Ordan burdan kodları alıp derlemeye çalışınca hatalar ortaya çıkmaya başlıyor.. VBA tarafında...

...ama html kullanmadan yapıyorlar. Size bir fikir verebilir diye şöyle bir tavsiye de bulunabilirim. Veri çekmek istediğiniz sayfayı farklı kaydet ile masaüstüne indirin. Sonra excel ile o sayfadan istediğin veriyi çekmeyi deneyin. Biraz otomatik biraz manuel olacak ancak sanırım işe...

Sub FarklıKaydetVeBağlantılarıKopar() Dim lnk As Variant ' Dosyayı farklı bir konumda "YeniDosya.xlsx" adıyla kaydet ActiveWorkbook.SaveAs "C:\YeniDosya.xlsx", FileFormat:=xlOpenXMLWorkbook ' Dosya içindeki tüm bağlantıları kopar For Each lnk In...

Merhaba arkadaşlar. Sheets("veri").Select ActiveSheet.Copy Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Close Yukarıdaki kod ile "veri" sayfasını bilgisayara kaydediyorum. Bu işimi görüyordu şimdi ise "PA_EK" "PA" "LÜZUMBELGESİ" ve "MTKK" sayfalarını da kaydetmem gerekiyor. Bu...

Merhaba arkadaşlar. Aşağıdaki kod ile Sayfa1 sayfasını bilgisayara kaydederken, Farkı Kaydet penceresi geliyor isim veriyorum ve dosyanın kaydedileceği yeri seçiyorum ve dosya türünü seçiyorum ve kaydet butonu ile kaydediyorum. Yapmak istediğim ise Farklı kaydet penceresi çıkmasın. Dosya adını...

Kıymetli arkadaşlar üstadlar bir hatim listemiz var bu listeyi sürekli elle güncelliyoruz ben olmasam da yapacak biri yok dolayısıla işleri kolaylaştırmak için 4 farklı buton ekledim ekranda gördüğünüz Sayfa Açıklaması: YENİ HAFTA butonu her bir ismi bir aşağı kaydırıp en alttakinide en tepeye...

Sub Farklı_Kaydet() Kayit_Yeri = Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Name & "" ActiveSheet.Range("A1:E100").Copy Workbooks.Add 1 ActiveWorkbook.Sheets(1).PasteSpecial Application.CutCopyMode = False With ActiveWorkbook .SaveAs Kayit_Yeri & "" & ".xls" .Close End With...

İkinci linkte sadece aktif sayfayı kaydediyor. tüm dosyayı nasıl kaydedebilirim. ilk linkteki kodlar bende hata veriyor..

Merhabalar, karşılaştığım sorunu farklı bilgisayarlarda denedim onlardada sonuç aynı, neden böyle bir hata veriyor bilgili arkadaşlarımızın bir fikri vardır. excel dosyam açılışta tam ekran olduğu için manual bir kaydet butonu koydum, kodu şu şekilde Private Sub CommandButton1_Click()...

Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("TR").Copy ActiveWorkbook.SaveAs Filename:="C:\Users\iambar\Desktop\denemeler\TR" & Format(Now, "dd.mm.yyyy mm.ss") & ".xlsx" Application.DisplayAlerts = True ActiveWorkbook.ActiveSheet.Cells.Copy...

kafamdaki sayfayı daha oluşturmamıştım ama yine de ben size anlaşılabilir bir excel örneğini drive üzerinden paylaşıyorum. Dosya> Farklı Kaydet>Kopyasını indir diyerek bilgisayarınıza kayıt edebilirsiniz. Sayfaİsmi.xlsm ilginiz için teşekkürler.

Merhaba. Küçük bir arama, biraz çaba ve araştırma ile benzer bir çok konu bulabilir, çaba ve araştırmalarınız sonucunda çok şey öğrenebilirsiniz. İnceleyin > Sayfayı Farklı Kaydet