• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre Adıyla Farklı Kaydeden Makro

  • Konbuyu başlatan Konbuyu başlatan Barfly
  • Başlangıç tarihi Başlangıç tarihi
ilhan40' Alıntı:
hocam sorunum sayfa1 e girdiğim verleri otomatik sayfa 2 ye atıyor. I3 hücresindeki isimle farklı kaydetmek istiyorum. (sadece sayfa 2 yi kaydetmek istiyorum onuda sayfa biçimi aynı,formülleri değer olarak istiyorum.yardımlarınız için şimdiden teşekkür ederim.
Genişletmek için tıkla ...


bu kodu denermisiniz.

Kod: 
Sub çalışmakitabıyap()
deger = Worksheets("Sayfa2").Cells(3, 9).Value
deger1 = InputBox("Sayfanın adını değiştirebilirsiniz.", "UYARI!", ActiveSheet.Name)
Sayfa_adı = "Sayfa2"
On Error Resume Next
Dim Baslik As String
Baslik = "Kaynak Dosyaları İçeren Klasörü Seçin"
Set Obj = CreateObject("shell.application")
Set Klasor = Obj.BrowseForFolder(0, Baslik, 50, &H0)
Kaynak = Klasor.items.Item.Path
If Len(Kaynak) = 3 Then
Kaynak = Mid(Kaynak, 1, 2)
Else
Kaynak = Kaynak
End If
If Not Klasor Is Nothing Then
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
On Error Resume Next
Dim sayfa As Worksheet
For Each sayfa In Worksheets
MsgBox Worksheets
If sayfa.Name = Sayfa_adı Then
sayfa.Copy
Sheets(ActiveSheet.Name).Name = deger1
ActiveWorkbook.SaveAs Kaynak & "\" & deger & ".xls"
ActiveWorkbook.Close False
Exit Sub
End If
Next sayfa
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub
 
hocam Sayfanın adını değiştirebilirsiniz mesajı geliyor tamam dedim Kaynak Dosyaları İçeren Klasörü Seçin mesajı geldi masaüstü tamam dedim ama olmadı
 
ilhan40' Alıntı:
hocam Sayfanın adını değiştirebilirsiniz mesajı geliyor tamam dedim Kaynak Dosyaları İçeren Klasörü Seçin mesajı geldi masaüstü tamam dedim ama olmadı
Genişletmek için tıkla ...

ne hatası veriyor
 
hata vermiyor ama sayfa2 deki I3 hücresindeki isimle farklı kaydetmesi gerkiyor ama kaydetmiyor
 
hocam sorunum sayfa1 e girdiğim verleri otomatik sayfa 2 ye atıyor. I3 hücresindeki isimle farklı kaydetmek istiyorum. (sadece sayfa 2 yi kaydetmek istiyorum onuda sayfa biçimi aynı,formülleri değer olarak istiyorum.yardımlarınız için şimdiden teşekkür ederim.


20 nolu mesajında

I3 hücresindeki değere göre kayıt etmek istemişsin
oysa senin kayıt edeceğin veri I2 hücresinde
 
hocam pardon I2 hücresi(deneme 3) adıyla farklı kayıt edeceğim
 
ilhan40' Alıntı:
hocam pardon I2 hücresi(deneme 3) adıyla farklı kayıt edeceğim
Genişletmek için tıkla ...

burayı
Kod: 
deger = Worksheets("Sayfa2").Cells([COLOR=red]3[/COLOR], 9).Value

burayla değiştir

Kod: 
deger = Worksheets("Sayfa2").Cells([COLOR=red]2[/COLOR], 9).Value
 
Halit hocam merhaba;

Biliyorum sizin için de benim için de sıkıcı olmaya başladı ama çoğu bitti azı kaldı.21 nolu mesajdaki dosyada kaydetme sorunu halledildi ancak tek bir sorunum var.Dosya içerisinde yptığım değişikliklerle yeni bir dosya açmıyor dosyanın ilk haliyle yeni bir dosya açıyor.
 
hemen kodun ilk başlangıcına
Sub kayıtet()
ActiveWorkbook.Save


bunu ekle

kırmızı yazı ile yazılan kodu ekle
 
Denedim hocam birşey değişmiyor bir de bazen konumda kayıtlı dosya yokken bile bu konumda ... adlı dosya zaten var... uyarısı veriyor ve herhangi bir dosya kaydetmeyebiliyor.Gizli dosyalar mı var dedim araçlardan göster seçeneğini seçtim dosya yine yok..
 
hocam eline ve emeğine sağlık bir iki düzenleme için tekrar bakabilirseniz sevinirim
 

Ekli dosyalar

peleryn' Alıntı:
Denedim hocam birşey değişmiyor bir de bazen konumda kayıtlı dosya yokken bile bu konumda ... adlı dosya zaten var... uyarısı veriyor ve herhangi bir dosya kaydetmeyebiliyor.Gizli dosyalar mı var dedim araçlardan göster seçeneğini seçtim dosya yine yok..
Genişletmek için tıkla ...


tamamdır herhalde kayıt fonksiyonunu değiştirdim.
 

Ekli dosyalar

Hocam sabırla uğraştınız teşekkür ederim sonunda oldu dosyama da uyarladım çalışıyor ellerinize sağlık:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst