sayfa2 aynı isimdeki olanları güncelesin yada silsin

[yenerkan]

Sub aktar()


Set syf1 = Sheets("Sayfa1")
Set syf2 = Sheets("Sayfa2")


For i = [A65536].End(3).Row To 2 Step -1


son = syf2.Range("a65536").End(3).Row + 1
For i = 1 To syf1.Range("a65536").End(3).Row

If syf1.Cells(i, "e").Value <> "" And syf1.Cells(i, "e").Value <> 0 Then
syf1.Rows(i).copy syf2.Rows(son)
son = son + 1
End If
Next




End Sub

 

[yenerkan]

arakadaşlar acil yardım

 

[muygun]

Merhaba;
Örnek dosya ekleyerek linkini burada paylaşın.
İyi çalışmalar.

Dosyanızı ekleyebileceğiniz link:
http://s3.dosya.tc/

 

[yenerkan]

dosya oluturnadım o kadar bilgim yok sizden ricam örnek bir kod yada yol göstermeniz

 

[hlojan]

Örnek dosya olmadan ne istediğinizi bilemeyiz.

 

[yenerkan]

örnek olsun diye hazırladım

http://s3.dosya.tc/server6/yn75ur/HHH1.rar.html

 

[muygun]

Merhaba;
Tablonuzdaki isteğiniz oldukça basit ama bence sakıncalı.
İsteğinize göre işlem sonucu veri direkt bir önceki verinin üzerine yazılacak. Bu herhangi bir hatalı veri düzenleme sonucunda yazdırdığınız verinin geri dönüşünü iptal eder. (üzerine yazdırdığınız için eski veri kaybolacaktır.)
Bunun yerine MÜŞTERİ LİSTESİ sayfasına tüm verilerinizi kaydetseniz sizin içinde bir veri tabanı oluşmuş olur. Ayrıca SİPARİŞ FORMU sayfasında müşteri ismi yazdığınız yada (yazılı ise hücre seçiminde) yan tarafa son kayıtlı veriyi alarak ilgili müşteriye ait son işlemide gözlemlemiş olursunuz.
Eki inceleyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server6/7em8tp/yenerkan-siparis_listesi.zip.html

 

[yenerkan]

cok teşekür ederim yardımın için bu kodlar cok işime yaradı

 

[yenerkan]

17 satıra kadar olması gerek

bütün satırı alıyor 17 satıra kadar nasıl yaparım


Set S1 = ThisWorkbook.Worksheets("SİPARİŞ FORMU")
Set S2 = ThisWorkbook.Worksheets("MÜŞTERİ SON ALIŞ")
For i = 14 To 17 S1.Range("b65536").End(xlUp).Row
hepsi = S1.Cells(i, 1) & S1.Cells(i, 2) & S1.Cells(i, 3) & S1.Cells(i, 4)

If WorksheetFunction.CountIf(S2.Range("e2:e65536"), hepsi) = 0 Then
sonsatir = S2.Range("A65536").End(xlUp).Row + 1
S2.Cells(sonsatir, 1) = S1.Cells(i, 1)
S2.Cells(sonsatir, 2) = S1.Cells(i, 2)
S2.Cells(sonsatir, 3) = S1.Cells(i, 3)
S2.Cells(sonsatir, 4) = S1.Cells(i, 4)
S2.Cells(sonsatir, 5) = S1.Cells(i, 1) & S1.Cells(i, 2) & S1.Cells(i, 3) & S1.Cells(i, 4)
kayıt = kayıt + 1

 

[muygun]

Merhaba;
üst mesajınızdaki;
For i = 14 To 17 S1.Range("b65536").End(xlUp).Row

alanını;

For i = 14 To 17
olarak değiştirin.
İyi çalışmalar.

 

[yenerkan]

muygun bey denedim ama 424 hatası aldım ilginiz için teşekür ederim

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/55yzzf/yenerkan-siparis_listesi-1.zip.html

 

[yenerkan]

Uygun bey sadece 15 satırı kopyalıyor cözemedim inan

 

[yenerkan]

Düzetme

SORUNU ŞU ŞEKİLDE DÜZETİM TEŞEKÜR EDERİM
For i = 14 To 17
s1.Range("B17").End(xlUp).Row