maaş disketi oluşturma

[Hacı Bayram ÖZKAN]

Sayın Halit abi; Senin hazırlamış olduğun Maaş Hacı Yeni dosyasındaki aktar2 makrosunu yeni banka kaydına göre düzenledim bu şekilde çalıştı ancak yeni oluşturulan dosyada sütun genişlikleri hepsinde 8,43 inc oluyor, bu genişlik oluşturulan sütundaki yazının kapladığı ebatında olabilir mi? Yani Iban 8,43 inc miktarı oysaki bu alanın 27,14 inc olması lazım. Diğerleride bunun gibi olmasını istiyorum. Teşekkürler Örnek dosya Haziran 2010 sil dosyasında mevcut

 

[halit3]

Sayın Halit abi; Senin hazırlamış olduğun Maaş Hacı Yeni dosyasındaki aktar2 makrosunu yeni banka kaydına göre düzenledim bu şekilde çalıştı ancak yeni oluşturulan dosyada sütun genişlikleri hepsinde 8,43 inc oluyor, bu genişlik oluşturulan sütundaki yazının kapladığı ebatında olabilir mi? Yani Iban 8,43 inc miktarı oysaki bu alanın 27,14 inc olması lazım. Diğerleride bunun gibi olmasını istiyorum. Teşekkürler Örnek dosya Haziran 2010 sil dosyasında mevcut

kodlarda aşağıdakinden sonra

Next

bunu ekle

Worksheets("Sayfa1").Columns("A:G").EntireColumn.AutoFit

 

[Hacı Bayram ÖZKAN]

Teşekkürler deneyeceğim

 

[halit3]

Teşekkürler deneyeceğim

iyi çalışmalar

 

[Hacı Bayram ÖZKAN]

Sayın Halit abi; Senin hazırlamış olduğun Maaş Hacı Yeni dosyasındaki aktar2 makrosunu yeni banka kaydına göre düzenledim bu şekilde çalıştı ancak yeni oluşturulan dosyada sütun genişlikleri hepsinde 8,43 inc oluyor, bu genişlik oluşturulan sütundaki yazının kapladığı ebatında olabilir mi? Yani Iban 8,43 inc miktarı oysaki bu alanın 27,14 inc olması lazım. Diğerleride bunun gibi olmasını istiyorum.

 

[halit3]

Sayın Halit abi; Senin hazırlamış olduğun Maaş Hacı Yeni dosyasındaki aktar2 makrosunu yeni banka kaydına göre düzenledim bu şekilde çalıştı ancak yeni oluşturulan dosyada sütun genişlikleri hepsinde 8,43 inc oluyor, bu genişlik oluşturulan sütundaki yazının kapladığı ebatında olabilir mi? Yani Iban 8,43 inc miktarı oysaki bu alanın 27,14 inc olması lazım. Diğerleride bunun gibi olmasını istiyorum.

kod çalışıyor ama dediğiniz doğrultuda yeniden ekledim.

Sub AKTAR2() 'yeni formata göre hazırlandı
Application.ScreenUpdating = False
dosya_adı = ActiveWorkbook.Name
Sayfa_Adı = ActiveSheet.Name
Application.DisplayAlerts = False
Kaynak = "D:\Belgelerim\Belgeler\Lojistik Belgelerim\Maaş-Operasyon\Maaş\Bankaya Gönderilen Aylık Maaş Çizelgesi\"
yeni_dosya_adı = Format(Worksheets(ActiveSheet.Name).Cells(1, 21).Value, "MMMM YYYY")
Dim ExcelSheet As Object
On Error Resume Next
CreateObject("Excel.Sheet").SaveAs Kaynak & yeni_dosya_adı & ".xls"
Application.DisplayAlerts = True
Dosya = Kaynak & yeni_dosya_adı & ".xls"
On Error Resume Next
Dim wb As Workbook
Application.DisplayAlerts = False
Set wb = Workbooks.Open(Dosya)
yenidosya_adı = ActiveWorkbook.Name
Windows(yenidosya_adı).Activate
SAT = 1
For i = 3 To ThisWorkbook.Sheets(Sayfa_Adı).[b65536].End(3).Row
ALAN2 = ThisWorkbook.Sheets(Sayfa_Adı).Cells(i, 2).Value
ALAN2 = LeftPadChar(ALAN2, "0", 26) & " "
ALAN3 = ThisWorkbook.Sheets(Sayfa_Adı).Cells(i, 16).Value
n2 = InStr(ALAN3, ",")
ALAN4 = ThisWorkbook.Sheets(Sayfa_Adı).Cells(i, 3).Value
ALAN5 = ThisWorkbook.Sheets(Sayfa_Adı).Cells(i, 4).Value
If n2 > 0 Then
ALAN3 = Mid(ALAN3, 1, n2 - 1) & "," & Mid(ALAN3, n2 + 1, 2)
End If
'alan3 = LeftPadChar(Format(alan3, "#,##0.00"), "0", 7)
ALAN3 = Format(ALAN3, "#,##0.00")
'alan3 = LeftPadChar(Format(alan3, "0.00"), " ", 7)
ALAN4 = ThisWorkbook.Sheets(Sayfa_Adı).Cells(i, 3).Value
Cells(SAT, 1).Value = "20100515"
Cells(SAT, 2).Value = "15514287"
Cells(SAT, 3).Value = "TR870001200125400004000012"
Cells(SAT, 4).Value = ALAN2
Cells(SAT, 5).Value = ALAN3 * 1
Cells(SAT, 5).NumberFormat = "#,##0.00"
Cells(SAT, 6).Value = ALAN5
Cells(SAT, 7).Value = ALAN4
SAT = SAT + 1
Next
'Worksheets("Sayfa1").Columns("A:G").EntireColumn.AutoFit
Worksheets("Sayfa1").Columns("A:G").ColumnWidth = 27.14
wb.Save
Windows(dosya_adı).Activate
yer = Dosya
Dosya = Dir
wb.Close False
ActiveWindow.WindowState = xlMaximized
Application.ScreenUpdating = True
MsgBox " Banka için dosya oluşturdum, TOPLAM " + Str(SAT - 1) + " Kişinin maaşı bankaya gönderilmeye hazır.", vbOKOnly, "Sayın Ali TEKİN; Hacıdan Sevgilerle..., DOLARIM ?"
End Sub