• DİKKAT

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

exceldeki 1 hücredeki veriyi tek bir tuşla txt ye aktarmak

U

u.L.a.s

Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
Merhabalar

Sheet1 de B1 hücresinde bulunan veriyi C:\SwitchListesi.Txt olarak yazsın istiyorum. bunu bir tuşa atanmış macro ile yapmak istiyorum.

Aynı şekilde 2. bir tuş daha yapıp o 2. tuşunda yine Sheet1 de B2 hücresindeki veriyi C:\SwitchListesi.Txt olarak aktarmasını istiyorum

böyle böyle sayfaya bi kaç buton koyacağım.

Ama genel mantık bu şekilde ilerleyecek.

Sadece ilk buton için örnek bir kod yazsanız yeterli benim için

Teşekkürler
 
u.L.a.s' Alıntı:
linki belirtmemişsiniz sayın halit.tekrar rica edebilir miyim sizden
Genişletmek için tıkla ...

Evet yanlışlıkla linki vermeyi unutmuşum.

http://www.excel.web.tr/f48/excelden-notepade-data-aktarymy-t113226.html

bu kodlar dosyayı silerek yazar

Kod: 
Sub yaz1()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
Print #1, Range("B1").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz2()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
Print #1, Range("B2").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

bu kodlar dosyada yazma işlemini alt alta ilave ederek yazar

Kod: 
Sub yaz3()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Append As #1
Print #1, Range("B1").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz4()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Append As #1
Print #1, Range("B2").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub
 
Hocam çok teşekkürler. verdiğin linkte incelediğim kadarıyla bişeyler yapmaya çalışmıştım ama tabi çok fazla bilgi olmadığından hata alıyordum. şimdi ilettiğin kodu yaptım tamamdır.
Emeğinize bilginize sağlık.
çok şeyler öğreniyorum sayenizde. kendi hazırladığım kod ile senin yazdığın arasındaki eksiklikleri görebildim çok teşekkürler tekrardan
 
halit3' Alıntı:
Evet yanlışlıkla linki vermeyi unutmuşum.

http://www.excel.web.tr/f48/excelden-notepade-data-aktarymy-t113226.html

bu kodlar dosyayı silerek yazar

Kod: 
Sub yaz1()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
Print #1, Range("B1").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz2()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
Print #1, Range("B2").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

bu kodlar dosyada yazma işlemini alt alta ilave ederek yazar

Kod: 
Sub yaz3()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Append As #1
Print #1, Range("B1").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz4()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Append As #1
Print #1, Range("B2").Value
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub
Genişletmek için tıkla ...

tek bir şey sormak istiyorum. tamam bu kodu ben bulunduğum sheette çalıştırıyorum
Range("B1") deki veriyi aktarıyorum

Ama diyelimki verim bu sheette değilde X bir sheette olsaydı.
O zaman target komutumu koymak gerekirdi.
 
Kod: 
 [COLOR="Red"]Sheets("Sayfa1").[/COLOR]Range("B1").Value
 
Print #1, Sheets("Porttanim").Range("C1:C15").Value

Bu kodu yazdım fakat hata alıyorum.
Port diye bir sheetim var orda buton oluşturdum ve bu macroyu yazdım.
bu butona basınca Porttanim sheetinde C sütununda bulunan 1 den 15. satıra kadar olan veriyi belirttiğim Txt ye aktarmasını istiyorum. yanlış nerede acaba
 
Print #1, Thiswrokbook.Sheets("Porttanim").Range("C1").Value yazarsam oluyor

yani sheet başına Thisworkbook ekledim. ama range te tek bir hücreyi kabul ediyor.
ben C1:C15 yazsın istiyorum
 
Aşağıdaki gibi alt alta yazınca txt ye C sütunundaki 1 den 15 e kadar olan verileri txt ye aktardım. ama tabi bir kodla bunu yapan bir bilgi olursa vaktiniz olunca yazarsanız sevinirim
Kod: 
Print #1, Thisworkbook.Sheets("Porttanim").Range("C1").Value
Print #1, Thiswrokbook.Sheets("Porttanim").Range("C2").Value
.
.
.
.
Print #1, Thiswrokbook.Sheets("Porttanim").Range("C14").Value
Print #1, Thiswrokbook.Sheets("Porttanim").Range("C15").Value
 
u.L.a.s' Alıntı:
Print #1, Thiswrokbook.Sheets("Porttanim").Range("C1").Value yazarsam oluyor

yani sheet başına Thisworkbook ekledim. ama range te tek bir hücreyi kabul ediyor.
ben C1:C15 yazsın istiyorum
Genişletmek için tıkla ...


Merhabalar

Sheet1 de B1 hücresinde bulunan veriyi C:\SwitchListesi.Txt olarak yazsın istiyorum. bunu bir tuşa atanmış macro ile yapmak istiyorum.

Aynı şekilde 2. bir tuş daha yapıp o 2. tuşunda yine Sheet1 de B2 hücresindeki veriyi C:\SwitchListesi.Txt olarak aktarmasını istiyorum

böyle böyle sayfaya bi kaç buton koyacağım.

Ama genel mantık bu şekilde ilerleyecek.

Sadece ilk buton için örnek bir kod yazsanız yeterli benim için

Teşekkürler
Genişletmek için tıkla ...

Bir nolu mesajınızda tek hücreden veri yazmasını istiyordunuz şimdide bir sütündaki istenen aralıktaki verileri yazmasını istiyorsunuz.

Herhalde bu sorular böyle devam edecek galiba bu konu başlığı altında son cevaplarım aşağıdaki örnekler olacaktır.

kod:

Kod: 
Sub yaz1()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
For Each hucre In Worksheets("Sayfa1").Range("c1:c15").Cells
Print #1, hucre.Value
Next
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz2()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
For i = 1 To 10
Print #1, Worksheets("Sayfa1").Range("C" & i).Value
Next
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz3()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
For i = 1 To Worksheets("Sayfa1").Cells(Rows.Count, "c").End(3).Row
Print #1, Worksheets("Sayfa1").Range("C" & i).Value
Next
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub


Sub yaz4()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
For i = 1 To 10
Print #1, Worksheets("Sayfa1").Cells(i, "c").Value
Next
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub

Sub yaz5()
dosyaadi = "C:\SwitchListesi.txt"
Open dosyaadi For Output As #1
For i = 1 To Worksheets("Sayfa1").Cells(Rows.Count, "c").End(3).Row
Print #1, Worksheets("Sayfa1").Cells(i, "c").Value
Next
Close #1
MsgBox "aktarma işi tamamlandı"
End Sub
 
hocam çok teşekkürler bilgilerin için

Fakat yanlışım ne onu anlamadım? evet ilk etapta tek bir hücre yazdırmaya yardım istedim şimdi farklı bir sheet. ayrı bir konumu açmak gerekirdi onun için. eğer öyle gerekiyorsa o şekilde yaparım bundan sonra. ben farklı bir konu açarak konu kirliliği yerine tek bir konu altında farklı cevaplar farklı örnekler oluşsun istemiştim tamamen iyi niyet kapsamında düşündüm bunuda.

Bir kusurum olduysa affola :(
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst