liste düzenleme

[igultekin2000]

iyi günler ;
aldığım dökümü formülle belli hale getiriyorum. daha pratik olması için makro olması daha pratik olacaktır. Yardımcı olacak arkadaşlara teşekkür ederim.
Tarih;Fatura No ve Firma ünvanı bir arada gelen dökümün ayrı sütunlara çevrilmesi.

 

[Necdet]

Baktım baktım hiç bir şey anlamadım.

 

[igultekin2000]

açıklama

Baktım baktım hiç bir şey anlamadım.

Sayfa1 döküm aldığımda çıkan hali, bunu duzenleme sayfasındaki hale getirmek şekliden ; bu işlemi formülle yapıyorum sürekli olduğu için makro halinde olmasını istiyordum.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub askm()
Dim SonSat As Long
Application.ScreenUpdating = False
SonSat = Range("A" & Rows.Count).End(xlUp).Row

Columns("E:G").Delete
Cells(1, 5) = "Tarih"
Cells(1, 6) = "Fatura No"
Cells(1, 7) = "Firma"
Range("E1:G1").Font.Bold = True
For i = 2 To SonSat
    Cells(i, 5) = Mid(Cells(i, 3), 1, 10)
    Cells(i, 6) = "'" & (Mid(Cells(i, 3), 14, 7))
    Cells(i, 7) = Mid(Cells(i, 3), 21, Len(Cells(i, 3)))
Next i
Set secim = Range("E1:G" & SonSat).Borders
    secim(xlEdgeLeft).LineStyle = xlContinuous
    secim(xlEdgeTop).LineStyle = xlContinuous
    secim(xlEdgeBottom).LineStyle = xlContinuous
    secim(xlEdgeRight).LineStyle = xlContinuous
    secim(xlInsideVertical).LineStyle = xlContinuous
    secim(xlInsideHorizontal).LineStyle = xlContinuous
Columns("E:G").AutoFit
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...", vbInformation, "ASKM"
End Sub

 

[igultekin2000]

teşekkürler

Teşekkürler, sorunsuz çalışıyor

 

[askm]

Rica ederim kolay gelsin.