tablodaki kayıtların diskete yazdırılması

[bulentcigali]

ekte göndermiş olduğum excel tablosunda bulaunan kayıtları diskete çıkmak istedim ancak yapamadım yardımcı olursanız sevinirim

 

[amelie]

Sorunuzdan ne yapmak istediğinizi ben anlamadım açıkçası.diskete kaydetmek ise makinanıza bir disket takıp dosya üzerinde sağ tık ile açılan menüden gönder (send) içinde disketi seçmeniz yeterlidir.Tabi yapmak istediğiniz buysa eğer?

 

[bulentcigali]

sayın amelie evet biraz eksik oldu galiba
ben diskete yedek almak veya kopyalamak istemiyorum.benim yapmak istediğim kayıtları .txt olarak diskete çıkmak. örneğin a1,d1,e1 ve l1 hücrelerini tek tek okuyup bunları tek bir kayıt olarak yazdırmak istiyorum.teşekkürler yardımınızı bekliyorum iyi akşamlar

 

[Recep İpek]

Ekteki örneği inceleyecebilirsiniz.

İster ayrı bir dosya olarak, istersenizde kendi dosyanıza uyarlayabilirsiniz.

Dikkat etmeniz gereken tutarların ( G Kolonu) ve toplam tutarın (H1) .(nokta) işaretiyle yazılması gerekiyor.

 

[bulentcigali]

sayın ripek ne diyeceğimi bilemiyorum istediğim olmuş,bizlerin bu işi yapamadığımız kadar da varmış.çok güzeldi son satırda sayı ve genel toplam da benim istediğimdi onuda yapmışsınız çok çok teşekkür ederim.
iyi çalışmalar.

 

[bulentcigali]

sayın ripek makroyu kendi bilgilerime uyarladım ancak ekte gönderdiğim tabloda açıkladığım gibi bazı konularda hata yapıyorum herhalde bazı hatalar oluştu yardımlarınızı bekliyorum iyi çalışmalar

 

[Recep İpek]

Ekteki dosyada gerekli bilgileri bulabilirsiniz.

 

[bulentcigali]

sayın ripek gönderdiğiniz deneme süzme ile ilgili herhalde yanlışlık oldu

 

[bulentcigali]

son hali ile tabloyu gönderiyorum iyi akşamlar

 

[Recep İpek]

Yanlış dosya eklemişim.Yenisiyle düzelttim.

 

[bulentcigali]

sayın ripek ekli dosyayı göremiyorum benim düzeltmelerimin son halini gönderiyorum

 

[Recep İpek]

12.456,1 rakamını 12456.10 şekline çevirmek için aşağıdaki KTF kullanabilirsiniz.

Function TEXTCEVIR(Tutar)
Dim a, b, c, d, e, f, g, h As Variant
On Error Resume Next
If Tutar = "" Then Exit Function
a = Len(Tutar)
b = WorksheetFunction.Search(",", Tutar)
If Err.Number > 0 Then
c = a + 1
Else
c = b
End If
If (a - c) < 1 Then
d = 0
Else
d = a - c
End If
e = Left(Tutar, c - 1)
If d = 0 Then
f = "00"
Else
f = Right(Tutar, d)
End If
If d = 1 Then
g = f & "0"
ElseIf d = 0 Then
g = "00"
Else
g = f
End If
h = e & "." & g
TEXTCEVIR = h
End Function

Ekteki dosyanızı inceleyiniz.

 

[bulentcigali]

sayın ripek çok teşekkür ediyor iyi hafta sonları çalışmalarınızda başarılar diliyorum