bekleyen sipariş

P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
arkadaşlar ben bekleyen sipariş için bir excel sayfası yapmak istiyorum

bitiş tarihi yazmadığım 5 ve 7 satırı sayfa 2 ye nasıl aktara bilirim
sadece bitiş tarihleri yazmadığım satırları aktarmak istiyorum
bitiş tarihleri yazılı satırları aktarmak istemiyorum

yainirrdımcı olursanız sevinirim.
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız hazır .Butona tıklayınız.:cool:
Kod: 
Sub aktar()
Dim sat As Long, i As Long, k As Integer
Sheets("BEKLEYEN SİPARİŞLER").Select
Range("B2:K65536").ClearContents
Application.ScreenUpdating = False
sat = 2
For k = 1 To Worksheets.Count
    If Sheets(k).Name <> "BEKLEYEN SİPARİŞLER" Then
        Set s1 = Sheets(Sheets(k).Name)
            For i = 5 To s1.Cells(65536, "B").End(xlUp).Row
            If s1.Cells(i, "K").Value = "" Then
                adr1 = Range(Cells(i, "B"), Cells(i, "K")).Address
                adr2 = Range(Cells(sat, "B"), Cells(sat, "K")).Address
                Range(adr2).Value = s1.Range(adr1).Value
                sat = sat + 1
            End If
        Next
    End If
Next k
Set s1 = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Son düzenleme:
P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
sipariş

SAYIN ENVER ARKADAŞ

dosyada bir yanlışlık yapmışım bu gönderdiğim dosyaya göre yaparsanız sevinirim
makina 1 ve makina 2 sayfalarının ikisini toplu olarak bekleyen siparişler sayfasına atmak istiyorum
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
piyers' Alıntı:
SAYIN ENVER ARKADAŞ

dosyada bir yanlışlık yapmışım bu gönderdiğim dosyaya göre yaparsanız sevinirim
makina 1 ve makina 2 sayfalarının ikisini toplu olarak bekleyen siparişler sayfasına atmak istiyorum

cevap yazdığınız için çok teşekkür ederim

saygılarımla
Genişletmek için tıkla ...
Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.:cool:
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
piyers' Alıntı:
teşekkür ederim evren arkadaş ellerine sağlık

bu makroyu yazdığımda bendedi proğramda çalışmadı açaba bende makine 1 ve makina 2 sayfalarından başka sayfalarda var ondanmı acaba çalışmadı
makroda veriyi alması gereken sayfa yazmadığından mı olmadı

ginede teşekkür ederim
Genişletmek için tıkla ...
Aktarılacak sayfanın ismi ney ise kırmızı renki olan yere o sayfanın ismini yazınız.:cool:
Kod: 
Sheets("[COLOR="Red"][B]BEKLEYEN SİPARİŞLER[/B][/COLOR]").Select
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Bu satırdaki kırmızı yeride değiştirin.:cool:
Kod: 
If Sheets(k).Name <> "[COLOR="Red"][B]BEKLEYEN SİPARİŞLER[/B][/COLOR]" Then
 
P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
Sub aktar()
Dim sat As Long, i As Long, k As Integer
Sheets("bekleyen siparişler").Select
Range("B2:K65536").ClearContents
Application.ScreenUpdating = False
sat = 2
For k = 1 To Worksheets.Count
If Sheets(k).Name <> "bekleyen siparişler" Then
Set s1 = Sheets(Sheets(k).Name)
For i = 5 To s1.Cells(65536, "B").End(xlUp).Row
If s1.Cells(i, "K").Value = "" Then
adr1 = Range(Cells(i, "B"), Cells(i, "K")).Address
adr2 = Range(Cells(sat, "B"), Cells(sat, "K")).Address
Range(adr2).Value = s1.Range(adr1).Value
sat = sat + 1
End If
Next
End If
Next k
Set s1 = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kod: 
Sheets("MAKİNA 1").Select
Kod: 
If Sheets(k).Name <> "MAKİNA 2" Then
Yukarıdaki satırlarda her iki sayfa adınında ayni olması lazım.
Aktarılan sayfanın adını yazmanız lazım.
Mesela dağa önce veriler BEKLEYEN SİPARİŞLER sayfasına aktarılıyordu.
Şimdi hangi sayfaya aktırılacaksa yukarıdaki 2 satıra o sayfanın adını yazmalısınız.:cool:
 
P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
ben anlatamadım
ben makroda veriyi alamk isdediğim makina 1 ve makina 2 sayfasını göremiyorum farklı sayfalardaki verileri aktarıyor


teşekkürler
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
piyers' Alıntı:
ben anlatamadım
ben makroda veriyi alamk isdediğim makina 1 ve makina 2 sayfasını göremiyorum
acaba ondanmı veriyi akdaramadım dedim
çünki makina1 ve makina 2 sayfalarından başka sayfalarda var ve onlardada veri var ben sadece makina 1 ve makina 2 sayfalarını bekleyen sipaşler sayfasına aktarmak istiyorum

hatta eğer olursa bekleyen siparişler sayfasına aktardığım satırların sonuna makina 1 veya makina 2 sayfasından akdarılan diye yazarsa süper olur

teşekkürler
Genişletmek için tıkla ...
Aşağıdaki kodları kullanınız.:cool:
Kod: 
Sub aktar()
Dim sat As Long, i As Long, k As Integer
Sheets("BEKLEYEN SİPARİŞLER").Select
Range("B2:L65536").ClearContents
Application.ScreenUpdating = False
sat = 2
For k = 1 To Worksheets.Count
    If Sheets(k).Name = "MAKİNA 1" Or Sheets(k).Name = "MAKİNA 2" Then
        Set s1 = Sheets(Sheets(k).Name)
            For i = 5 To s1.Cells(65536, "B").End(xlUp).Row
            If s1.Cells(i, "K").Value = "" Then
                adr1 = Range(Cells(i, "B"), Cells(i, "K")).Address
                adr2 = Range(Cells(sat, "B"), Cells(sat, "K")).Address
                Range(adr2).Value = s1.Range(adr1).Value
                Range("L" & sat).Value = Sheets(k).Name
                sat = sat + 1
            End If
        Next
    End If
Next k
Set s1 = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
K sütununda sorgulanan hücrelerde boşluk karakteri girlmiş.Hücreye bakılnca boş gibi görülsede aslında boş değil boşluk karakteri var .Bu sebeple o hücreleri listeleyemiyor.
O yüzden aşağıdaki satırı onun altındaki satırla değiştiriniz.:cool:
Kod: 
If s1.Cells(i, "K").Value = "" Then
Kod: 
If [COLOR="Red"][B]trim[/B][/COLOR](s1.Cells(i, "K").Value) = "" Then
 
P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
Evren Arkada&#350; &#199;ok Te&#350;ekk&#220;r Eder&#304;m Oldu El&#304;ne Sa&#286;lik
Saygilarimla
 
P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
Ben Burada Tar&#304;h B&#214;l&#220;m&#220;ne Tar&#304;h Yazdi&#286;im Zaman Bu Satiri
Mak&#304;na 1 Dek&#304; Mak&#304;na 1 Sayfasindak&#304; Yer&#304;ne
Mak&#304;na 2 Dek&#304; Mak&#304;na 2 Sayfasindak&#304; Yer&#304;ne

G&#304;tmes&#304;n&#304; &#304;st&#304;yorum
Dosya Ekded&#304;r
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
piyers' Alıntı:
evren arkadaş

sizden bir ricam daha var
dosyayı acarsanız açıklamayı dosyanın içine yazdım
bu dosyadaki makro programımıda çözerseniz sevinirim.

BEN BURADA TARİH BÖLÜMÜNE TARİH YAZDIĞIM ZAMAN BU SATIRI
MAKİNA 1 DEKİ MAKİNA 1 SAYFASINDAKİ YERİNE
MAKİNA 2 DEKİ MAKİNA 2 SAYFASINDAKİ YERİNE

GİTMESİNİ İSTİYORUM
DOSYA EKDEDİR
Genişletmek için tıkla ...
Dosyanız hazır.:cool:
Kod: 
Sub aktar()
Dim sat As Long, i As Long, k As Integer
Sheets("BEKLEYEN SİPARİŞLER").Select
Application.ScreenUpdating = False
For i = 6 To Cells(65536, "B").End(xlUp).Row
    If Left(LCase(Replace(Replace(Cells(i, "L").Value, "I", "I"), "İ", "i")), 6) = "makina" Then
        On Error GoTo atla
        adr1 = Range(Cells(i, "B"), Cells(i, "L")).Address
        sat = Sheets(Cells(i, "L").Value).Cells(65536, "B").End(xlUp).Row + 1
        adr2 = Range(Cells(sat, "B"), Cells(sat, "L")).Address
        Sheets(Cells(i, "L").Value).Range(adr2).Value = Range(adr1).Value
atla:
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub
 
P

piyers

Katılım
10 Mayıs 2005
Mesajlar
78
butona bast&#305;&#287;&#305;mda devaml&#305; makina 1 ve makina 2 sayfas&#305;na alt alta at&#305;yor.
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Yapa yapa doğrusunu bulacaz.
Ekli dosyadan Verileri userformdan giriyorsunuz ve tarih girişinide userformdaki tarih sekmesinden giriyorsunuz.
Userform'daki kayıt sekmesinden kayıtları giriniz.
Sonra Tarih sekmesinden listelenenlerden istediğinizi seçip değiştir tuşuna basarak istediğiniz tarihi giriniz.
Ekli dosyayı inceleyiniz.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst