Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-02-2017, 14:23   #1
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Exclamation Excel Dosyasının Log kayıtlarını .Txt aktarma

S.a. Benim sorum bir .txt dosyasına .xlsx dosyasında yapılan işlemlerin kaydedilmesi yani excel sayfasının log kaydını tutmak istiyorum. İnternette biraz araştırdım excele kimin girdiği nezaman girdiği ve çıktıpını buldum biraz kurcaladım oluyor fakat girdiği zaman hangi satır ve sütunda ne değişiklik yaptığı, ne eklediği ve ne kadar kaldığınıda yazdırmak istiyorum onuda araştırdım fakat bu kısımda tıkandım. Konu hakkında bilgisi olan arkadaşlar yardımcı olur ise çok memnun olurum.
Örnek kod:
Alıntı:
Sub Auto_Open()

Dim i As Long

i = Sheets("Sayfa1").Cells(Rows.Count, "a").End(3).Row + 1

On Error GoTo son
Open "C:\Users\Pc\Desktop\dene\Dene.txt" For Append As #1
Print #1, Environ("UserName") & "-" & CStr(Date) & "-" & CStr(Time) & CStr(ThisWorkbook.FullName) & "-HTS 36761-Açıldı"
son:
Close #1
On Error GoTo son
Open "C:\Users\Pc\Desktop\dene\Dene.txt" For Append As #1
Print #1, Environ("UserName") & "-" & CStr(Date) & "-" & CStr(Time) & CStr(ThisWorkbook.FullName) & "-HTS 36761-Kaydedildi"
Close #1

End Sub
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 07:30   #2
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Konu günceldir yardımcı olabilecek bilgisi olan arkadaş varsa sevinirim İyi çalışmalar.
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 10:29   #3
levo26
 
levo26 kullanıcısının avatarı
 
Giriş: 22/04/2010
Şehir: Eskişehir
Mesaj: 493
Excel Vers. ve Dili:
Excel 2003
Varsayılan

Merhaba,
Aşağıdaki kodlları deneyiniz..
F11 TUŞUNA BASARSANIZ "YEDEK" SAYFASINI GÖREBİLİRSİNİZ.
F12 TUŞUNA BASARSANIZ "YEDEK" SAYFASINI GİZLEYEBİLİRSİNİZ.
- Sayfanın kod bölümüne

Dim Eski_Değer

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Satır = WorksheetFunction.CountA(Sheets("YEDEK").Range("A: A")) + 1
Sheets("YEDEK").Cells(Satır, 1) = Satır - 1
Sheets("YEDEK").Cells(Satır, 2) = Date
Sheets("YEDEK").Cells(Satır, 3) = Time
Sheets("YEDEK").Cells(Satır, 4) = Application.UserName
Sheets("YEDEK").Cells(Satır, 5) = ActiveSheet.Name & "!" & Target.Address(1, 1)
Sheets("YEDEK").Cells(Satır, 6) = IIf(Eski_Değer = "", "Boş Hücre", Eski_Değer)
Sheets("YEDEK").Cells(Satır, 7) = IIf(Target = "", "Değer Silindi !", Target)
Sheets("YEDEK").Cells.EntireColumn.AutoFit
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Eski_Değer = Target
End Sub

- Workbook sayfasına

Private Sub Workbook_Activate()
Sheets("YEDEK").Visible = 2
Application.OnKey "{F11}", "GÖSTER"
Application.OnKey "{F12}", "GİZLE"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F11}", ""
Application.OnKey "{F12}", ""
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey "{F11}", ""
Application.OnKey "{F12}", ""
End Sub

Private Sub Workbook_Open()
Sheets("YEDEK").Visible = 2
Application.OnKey "{F11}", "GÖSTER"
Application.OnKey "{F12}", "GİZLE"
End Sub

- Modülüne

Sub GİZLE()
Sheets("YEDEK").Visible = 2
End Sub

Sub GÖSTER()
Sheets("YEDEK").Visible = -1
End Sub
levo26 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 15:02   #4
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Atladığım biryermi var acaba Alt + F11 ile kodu ekliyorum excel sayfasınıda Yedek olarak değiştiriyorum kaydedip çıkıyorum tekrar excel sayfasına girdiğimde F11 yada F12 yaptığımda farklı kaydet ve grafikler sayfaları geliyor. Muhtemelen yapamadım sanırım örnek bir dosya yükleyeyim bakarsanız çok sevinirim.

http://dosya.co/gbsoa3h1ina7/log_deneme.xlsm.html
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-02-2017, 15:24   #5
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Konu güncel yardımcı olursanız çok sevinirim .
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 09:03   #6
levo26
 
levo26 kullanıcısının avatarı
 
Giriş: 22/04/2010
Şehir: Eskişehir
Mesaj: 493
Excel Vers. ve Dili:
Excel 2003
Varsayılan

Merhaba; örnek dosya linktedir.

http://s6.dosya.tc/server8/djf4a3/Test.xls.html
1- Dosyanın kod sayfası
2-wordbook sayfası
3- modülündeki kodalra bakınız.
f11-f12 ile gizle göster yapabilirsiniz.
levo26 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 14:31   #7
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Alıntı:
levo26 tarafından gönderildi Mesajı Görüntüle
Merhaba; örnek dosya linktedir.

http://s6.dosya.tc/server8/djf4a3/Test.xls.html
1- Dosyanın kod sayfası
2-wordbook sayfası
3- modülündeki kodalra bakınız.
f11-f12 ile gizle göster yapabilirsiniz.
Hocam size çok teşekkür ederim bu tam kastettiğim şeydi lakin benim çalıştığım excel ler zaten oldukça yoğun veriler içeriyor. Bu yüzden logları Ağda bir metin belgesinde toplamak istiyorum bu tuttuğu logları aynı şekilde metin belgesine yazdırmak istiyorum mümkünmüdür acaba ?
Emeğiniz ve ilginiz için tekrar teşekkür ederim
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 19:46   #8
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Verileri direk bizim belirlediğimiz başka bir metin belgesi yada başka bir excel e yazarsa mükemmel olacak yoruyorum sizi de helal edin hakkınızı ben bayağı bir uğraştım ama yapamadım emeğinize ve ilginize tekrar teşekkür ederim.
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-02-2017, 22:53   #9
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Alıntı:
levo26 tarafından gönderildi Mesajı Görüntüle
Merhaba; örnek dosya linktedir.

http://s6.dosya.tc/server8/djf4a3/Test.xls.html
1- Dosyanın kod sayfası
2-wordbook sayfası
3- modülündeki kodalra bakınız.
f11-f12 ile gizle göster yapabilirsiniz.
hocam bu işlemi başka bir metin belgesi yada başka excel dosyasına yazdırmamız mümkünmü acaba yardımınızı bekliyorum şimdiden teşekkür ederim .
asas44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-02-2017, 23:54   #10
asas44
 
asas44 kullanıcısının avatarı
 
Giriş: 13/07/2013
Şehir: Fethiye
Mesaj: 71
Excel Vers. ve Dili:
2013 excel
Varsayılan

Alıntı:
levo26 tarafından gönderildi Mesajı Görüntüle
Merhaba; örnek dosya linktedir.

http://s6.dosya.tc/server8/djf4a3/Test.xls.html
1- Dosyanın kod sayfası
2-wordbook sayfası
3- modülündeki kodalra bakınız.
f11-f12 ile gizle göster yapabilirsiniz.
Konuya yardımcı olabilecek kimse yokmu aynı formulü metin belgesine yada başka bir excel e yazdıracak ??
asas44 Ç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 13:00


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden