• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

dataların aktarılması hk.

Katılım
17 Ağustos 2009
Mesajlar
58
Excel Vers. ve Dili
2007 İngilizce
Merhaba,

Ekli dosyada planlanan sheetinin Q sütununda bulunan "fat-mus teslim" yazan satırları "fat-mus teslim" sayfasına, fat-fab teslim yazan satırları "fat-fab teslim" sayfasına kopyalamak için makro yazmak istiyorum. Yardımcı olabilirseniz sevinirim.
 

Ekli dosyalar

aşağıdaki makroyu düzenleyip kendine uyarlayabilirsin.

Sub fatfab_aktar()
Sheets("planlanan").Select
Range("C1:Q1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=15, Criteria1:="fat-fab teslim"
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("fat-fab teslim").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("planlanan").Select
Range("C1:Q1").Select
Selection.AutoFilter

End Sub
 
bu da başka bir yöntem;

Sub aktar()
Set s1 = Sheets("planlanan")
Set s2 = Sheets("fat-fab teslim")
Set s3 = Sheets("fat-mus teslim")
a = s1.[a65536].End(3).Row
fat = 2
fat1 = 2
For sat = 2 To a
If s1.Cells(sat, "q").Value = "fat-fab teslim" Then
For sut = 1 To 14
s2.Cells(fat, sut).Value = s1.Cells(sat, sut).Value
Next sut
fat = fat + 1
End If
If s1.Cells(sat, "q").Value = "fat-mus teslim" Then
For sut = 1 To 14
s3.Cells(fat1, sut).Value = s1.Cells(sat, sut).Value
Next sut
fat1 = fat1 + 1
End If
Next sat
End Sub
 
Yardımınız için teşekkürler..

sbayyigit - yazdığınız kodu çalıştırabildim. Teşekkürler.
Ancak, istediğim şey şu: fat-fab teslim ve fat-mus teslim sheetlerinin ilgili kolonlarına kopyalama yapmak istiyorum. Örneğin, planlanan sheetindeki "customer" sütunundaki bilgiyi, fat-fab teslim sheetinin "customer" sütununa.. Planlanan sheetindeki "Range" sütunundaki bilgiyi, fat-fab teslim sheetinin "range" sütununa.. şeklinde bütün gerekli kolonların aktarılmasını sağlayacak kod konusunda yardımcı olabilirseniz sevinirim.
 
Yardımınız için teşekkürler..

sbayyigit - yazdığınız kodu çalıştırabildim. Teşekkürler.
Ancak, istediğim şey şu: fat-fab teslim ve fat-mus teslim sheetlerinin ilgili kolonlarına kopyalama yapmak istiyorum. Örneğin, planlanan sheetindeki "customer" sütunundaki bilgiyi, fat-fab teslim sheetinin "customer" sütununa.. Planlanan sheetindeki "Range" sütunundaki bilgiyi, fat-fab teslim sheetinin "range" sütununa.. şeklinde bütün gerekli kolonların aktarılmasını sağlayacak kod konusunda yardımcı olabilirseniz sevinirim.

bu şekilde deneyebilirsiniz.
Sub aktar()
Set s1 = Sheets("planlanan")
Set s2 = Sheets("fat-fab teslim")
Set s3 = Sheets("fat-mus teslim")
a = s1.[a65536].End(3).Row
s2.Select
Rows("2:500").Select
Selection.ClearContents

fat = 2
fat1 = 2
s3.Select
Rows("2:500").Select
Selection.ClearContents

For sat = 2 To a
If s1.Cells(sat, "q").Value = "fat-fab teslim" Then
For sut = 1 To 14
s2.Cells(fat, sut).Value = s1.Cells(sat, sut + 1).Value
Next sut
fat = fat + 1
End If
If s1.Cells(sat, "q").Value = "fat-mus teslim" Then
For sut = 1 To 14
s3.Cells(fat1, sut).Value = s1.Cells(sat, sut + 1).Value
Next sut
fat1 = fat1 + 1
End If
Next sat
End Sub
 
Gönderdiğiniz kodları kopyalayıp run tuşuna bastığımda 400 hatası veriyor.
Makro konusunda da yeni olduğum için kendim düzeltemiyorum..
Sorunu nasıl giderebilirim?
 
Gönderdiğiniz dosya sorunsuz çalıştı.

Ancak, tüm veriler gerektiği yere kopyalanmamış.
Fat-fab teslim sayfasında EAS Oil Type,BOM Oil Code ve BOM Oil Qty. değerleri planlanan sayfasındakiler ile aynı değil.. Değerleri nereden alması gerektiğini hangi kod belirliyor? Başlıklarla ilgili kısım göremedim..
Ayrıca aktarımdan sonra planlanan kısmından aktarılanları silmem de gerekli..
 
Gönderdiğiniz dosya sorunsuz çalıştı.

Ancak, tüm veriler gerektiği yere kopyalanmamış.
Fat-fab teslim sayfasında EAS Oil Type,BOM Oil Code ve BOM Oil Qty. değerleri planlanan sayfasındakiler ile aynı değil.. Değerleri nereden alması gerektiğini hangi kod belirliyor? Başlıklarla ilgili kısım göremedim..
Ayrıca aktarımdan sonra planlanan kısmından aktarılanları silmem de gerekli..

sütun sıralarının aynı olduğunu farzetmiştim. ona dikkat etmemiştim. şu anda biraz işim var bir kaç saate kadar düzenler gönderirim
kolay gelsin
 
Sizi de yoruyorum, kusura bakmayın.
Kodların bir kısmını anladım ama söylediğim kısmı kendim yapamadım..
 
bu şekilde denerseniz hem anlarsınız hem eksik yerleri kendiniz tamamlarsınız

Sub aktar()
Set s1 = Sheets("planlanan")
Set s2 = Sheets("fat-fab teslim")
Set s3 = Sheets("fat-mus teslim")
a = s1.[a65536].End(3).Row
s2.Select
Rows("2:500").Select
Selection.ClearContents

fat = 2
fat1 = 2
s3.Select
Rows("2:500").Select
Selection.ClearContents

For sat = 2 To a
If s1.Cells(sat, "q").Value = "fat-fab teslim" Then
For sut = 1 To 14
s2.Cells(fat, 1).Value = s1.Cells(sat, "b").Value
s2.Cells(fat, 2).Value = s1.Cells(sat, "c").Value
s2.Cells(fat, 3).Value = s1.Cells(sat, "d").Value
s2.Cells(fat, 4).Value = s1.Cells(sat, "e").Value
s2.Cells(fat, 5).Value = s1.Cells(sat, "f").Value
s2.Cells(fat, 6).Value = s1.Cells(sat, "k").Value
s2.Cells(fat, 7).Value = s1.Cells(sat, "m").Value
s2.Cells(fat, 8).Value = s1.Cells(sat, "l").Value

Next sut
fat = fat + 1
End If
If s1.Cells(sat, "q").Value = "fat-mus teslim" Then
For sut = 1 To 14
s3.Cells(fat1, 1).Value = s1.Cells(sat, "b").Value
s3.Cells(fat1, 2).Value = s1.Cells(sat, "c").Value
s3.Cells(fat1, 3).Value = s1.Cells(sat, "d").Value
s3.Cells(fat1, 4).Value = s1.Cells(sat, "e").Value
s3.Cells(fat1, 5).Value = s1.Cells(sat, "f").Value
s3.Cells(fat1, 6).Value = s1.Cells(sat, "k").Value
s3.Cells(fat1, 7).Value = s1.Cells(sat, "m").Value
s3.Cells(fat1, 8).Value = s1.Cells(sat, "l").Value

Next sut
fat1 = fat1 + 1
End If
Next sat
End Sub
 
Dosyaya yeni bakabildim. Çok teşekkürler.

Yalnız ufak bir sorun var. Makroyu çalıştırınca, istediğim yere bilgileri atıyor. ama ben bilgiler aktarıldıktan sonra fat-mus teslim ve fat-fab teslim sheetinde kalsın istiyorum.

Yani, bir sonraki aktar tuşuna bastığımda, öncekilerin üstüne kopyalamasın. Boş olan satırdan kopyalamaya devam etsin istiyorum. Nasıl yapabiliriz?
 
Dosyaya yeni bakabildim. Çok teşekkürler.

Yalnız ufak bir sorun var. Makroyu çalıştırınca, istediğim yere bilgileri atıyor. ama ben bilgiler aktarıldıktan sonra fat-mus teslim ve fat-fab teslim sheetinde kalsın istiyorum.

Yani, bir sonraki aktar tuşuna bastığımda, öncekilerin üstüne kopyalamasın. Boş olan satırdan kopyalamaya devam etsin istiyorum. Nasıl yapabiliriz?

bu şekilde işine yarar mı bilmiyorum. başka çözüm yolu gelmedi aklıma
 

Ekli dosyalar

İstediğim tam da buydu.
Teşekkürler
 
Geri
Üst