makro yardımı

altay76 · 1 Ağustos 2008

arkadaşlar ekteki dosyamda sayfa 1 deki leri sayfa 2 deki gıbı ayarlamam lazım

şu sekilde $ 9 nocon ve ( ile başlayan satırlardakini bir üst satırın sonuna eklemem gerekiyor elimdede bu doslaradan milyonlarca var bana yardım edecek biri varsa sevinirm

altay76 · 1 Ağustos 2008

arkadaşlar yokmu ufaktan bir başlangıc yapsam örnek

metinozlu · 2 Ağustos 2008

atırlar arasında sistematik bir ilişki yok.düzenleme yapmadan önceki dosya sekli sayfa 1 deki gibi mi? Sistematik ilişki anlaşılabilirse çözüm bulunabilir.

Korhan Ayhan · 2 Ağustos 2008

Selamlar,

Aşağıdaki kodu denermisniz.

Kod:

Sub D&#220;ZENLE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S1.Select
    S2.[A2:A65536].ClearContents
    For X = 2 To [A65536].End(3).Row
    If Mid(Cells(X, 1), 1, 1) = "$" Or _
    Mid(Cells(X, 1), 1, 1) = 9 Or _
    Mid(Cells(X, 1), 1, 1) = "(" Or _
    UCase(Replace(Replace(Mid(Cells(X, 1), 1, 5), "i", "&#304;"), "&#305;", "I")) = "NOCON" Then
    S2.Cells(X - 1, 1) = Cells(X - 1, 1) & Cells(X, 1)
    Else
    S2.Cells(X, 1) = Cells(X, 1)
    End If
    Next
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

altay76 · 2 Ağustos 2008

tesekkurler korhan arkadasım ısıme cok yaradı .Yanlız benım hatam NLCA_NILLA_1 $ bırde bu var bunu unutmusum nocon gıbı bunu ekleyemedım.ama olmuyorsana cok tesekkur ederım

altay76 · 2 Ağustos 2008

evet sanırım nlca yıda noconun yerıne koyup olayı cozer gıbı oldum

UCase(Replace(Replace(Mid(Cells(X, 1), 1, 12), "i", "İ"), "ı", "I")) = "NLCA_NILLA_1" Then

seklinde olacak galiba.Birde bu makro belirtigimiz şeyleri yukarı alırken hemen bitimin yazıyor ve kelime ile birleştiriyor yanı su sekılde ornek verecek olursam
veli
ahmet
bunu veliahmet yapıyor veli ahmet yapabilirmiyiz
ayrıca 9 lu demiştik ya 9 luları alıyor evet ama sadece 9 lu olanları almasını ıstıyorum ornek olarak
9 almasını
9 IBN NONE NT 4 14 NILSFC 1 PX REGULAR3 NTRS02 00 216_NPRT_1 NLCA_NILLA_1 $ bu sekılde almamasını ıstıyorum

bunlarıda yapabılırsek cok sevınırım sımdıden tesekkurler

altay76 · 2 Ağustos 2008

evet arkaşadaşlar korhan arkadaşımızın verdiği kodlarla ugrasırken ara verdırerek yazmayıda buldum tesekkurler
S3.Cells(X - 1, 1) = Cells(X - 1, 1) & (" ") & Cells(X, 1)

bu sekılde olunca alttakı yazıyı ustekıne yazarken bır ara verıyor

altay76 · 2 Ağustos 2008

evet şu anda son olarak şu sekilde olmuş oldu
Sub DÜZENLE1()
Set S2 = Sheets("Sayfa2")
Set S3 = Sheets("Sayfa3")
S2.Select
S3.[A1:A65536].ClearContents
For X = 2 To [A65536].End(3).Row
If Mid(Cells(X, 1), 1, 1) = "$" Or _
Mid(Cells(X, 1), 1, 1) = 9 Or _
Mid(Cells(X, 1), 1, 1) = "(" Or _
UCase(Replace(Replace(Mid(Cells(X, 1), 1, 5), "i", "İ"), "ı", "I")) = "NOCON" Or _
UCase(Replace(Replace(Mid(Cells(X, 1), 1, 12), "i", "İ"), "ı", "I")) = "NLCA_NILLA_1" Then
S3.Cells(X - 1, 1) = Cells(X - 1, 1) & (" ") & Cells(X, 1)
Else
S3.Cells(X, 1) = Cells(X, 1)
End If
Next
S3.Select
Set S2 = Nothing
Set S3 = Nothing
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

altay76 · 2 Ağustos 2008

Yanlız bir sorunum daha var arkadaslar. 9 lu başlayan satırlar var sadece 9 olanları almasını ıstıyorum.
a3 satırı 9 bunun yukarı alınmasını istiyorum zaten alıyor
a5 satırı diyelim 9 IBN NONE NT 4 14 NILSFC 1 PX REGULAR3 NTRS02 00 216_NPRT_1 NLCA_NILLA_1 $ bu şekilde ve bunuda yukarı alıyor bunun yerinde kalmasını istiyorum bunuda çözersek iş bitmiş gibi olacak.
biraz deneme yapayım bakalım

altay76 · 2 Ağustos 2008

birde bazı satırları silmem gerekiyor degiştirmem gerekiyor bu işi lu şekilde hallettim.
Cells.Replace What:=">table ncos;format pack;lis all", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="CUSTGRP NCOS NCOSNAME LSC TRAFSNO OPTIONS", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=">table dghead;format pack;lis all", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="DGNAME INITTMO IDGTTMO NUMDGTS SDGT DTONE DGTYPE", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False

boyle 100 u askın kelıme var bunları ılk once bosluk olarak degıstırıp sonra sılıyorum kopmle o satırı sılemezmıyız acaba

Korhan Ayhan · 2 Ağustos 2008

Selamlar,

9 ile başlayanlar için kodu aşağıdaki şekilde değiştirip denermisiniz. Silinecek kelimeler 100 den fazla ise bunları bir sayfaya yazıp döngüye alıp silmek daha mantıklı olacaktır. Eğer silinecek kelimelerin listesini verirseniz ve hangi sayfadan silineceğini belirtirseniz yardımcı olmaya çalışırız.

Kod:

Sub D&#220;ZENLE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S1.Select
    S2.[A1:A65536].ClearContents
    For X = 2 To [A65536].End(3).Row
    If Mid(Cells(X, 1), 1, 1) = "$" Or _
    Mid(Cells(X, 1), 1, 1) = 9 And Len(Cells(X, 1)) = 1 Or _
    Mid(Cells(X, 1), 1, 1) = "(" Or _
    UCase(Replace(Replace(Mid(Cells(X, 1), 1, 5), "i", "&#304;"), "&#305;", "I")) = "NOCON" Or _
    UCase(Replace(Replace(Mid(Cells(X, 1), 1, 12), "i", "&#304;"), "&#305;", "I")) = "NLCA_NILLA_1" Then
    S2.Cells(X - 1, 1) = Cells(X - 1, 1) & (" ") & Cells(X, 1)
    Else
    S2.Cells(X, 1) = Cells(X, 1)
    End If
    Next
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

altay76 · 2 Ağustos 2008

teseşşkurler arkadasım bende su sekılde yapmıstım ama sızınkı daha ıyı sanırım
Sub DÜZENLE1()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S1.Select
S2.[A1:A65536].ClearContents
For X = 2 To [A65536].End(3).Row
If Mid(Cells(X, 1), 1, 1) = "$" Or _
Mid(Cells(X, 1), 1, 1) = "(" Or _
UCase(Replace(Replace(Mid(Cells(X, 1), 1, 5), "i", "İ"), "ı", "I")) = "9" Or _
UCase(Replace(Replace(Mid(Cells(X, 1), 1, 5), "i", "İ"), "ı", "I")) = "NOCON" Or _
UCase(Replace(Replace(Mid(Cells(X, 1), 1, 12), "i", "İ"), "ı", "I")) = "NLCA_NILLA_1" Then
S2.Cells(X - 1, 1) = Cells(X - 1, 1) & (" ") & Cells(X, 1)
Else
S2.Cells(X, 1) = Cells(X, 1)
End If
Next
S2.Select
Set S1 = Nothing
Set S2 = Nothing
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

altay76 · 2 Ağustos 2008

sılınecek kelımeler sureklı degısıyor ama bellı baslıları var tabı
<line length>: 76 columns can be output per line.
<pack mode>: Pack mode is ON.
<indent column>: Indented lines will begin in column 1.
<first column>: The first column of output is column 1.
TOP
DGNAME INITTMO IDGTTMO NUMDGTS STOPDGT DTONE DGTYPE
---------------------------------------------------
BOTTOM
>table dgcode;format pack;lis all
TABLE: DGCODE
<line length>: 76 columns can be output per line.
<pack mode>: Pack mode is ON.
<indent column>: Indented lines will begin in column 1.
<first column>: The first column of output is column 1.
TOP
DGCLKEY DATA
------------
ben bunları
tek tek şu şekilde
Cells.Replace What:=">table ncos;format pack;lis all", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="CUSTGRP NCOS NCOSNAME LSC TRAFSNO OPTIONS", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=">table dghead;format pack;lis all", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="DGNAME INITTMO IDGTTMO NUMDGTS SDGT DTONE DGTYPE", _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
yaptım ama bazen başka kelimelerde geliyor ve ben bunları boşluk ıle degiştirip sonra bos olan hucelerı sılıyorum .

altay76 · 2 Ağustos 2008

son bır sey dada

bu dosyaların basında gereksız bazı karakter ve kelımeler var
asagıda ekte gondermıs bulunmaktayım bunada bır cozum bulursak işlemim bitecek

makro yardımı

altay76

altay76

metinozlu

Korhan Ayhan

Administrator

altay76

altay76

altay76

altay76

altay76

altay76

Korhan Ayhan

Administrator

altay76

altay76

altay76