Şartlı veri aktarma..!

[sensizsoldum]

Merhaba
ALİ Sayfasında ki verileri VELİ sayfasına şartlı olarak aktarılmasını istiyorum,
Ali sayfasından c2 ve h2 arasında veriler var, bu verileri veli sayfasının a3 ve sonrası tüm sütun silinip, bu verilerin aktarılmasını bir buton yardımıyla a3 f3 den başlayacak şekilde değer olarak aktarılmasını istıyorum. örnek çalışmam da ekte mevcuttur.

yardımcı olabilir misiniz.

 

[sensizsoldum]

değerli hocalarım arkadaşlar bu konuya da göz atabilirmısınız . çok rica ediıyorum. iyi geceler dilerim

 

[Husgvarna]

Merhaba
ALİ Sayfasında ki verileri VELİ sayfasına şartlı olarak aktarılmasını istiyorum,
Ali sayfasından c2 ve h2 arasında veriler var, bu verileri veli sayfasının a3 ve sonrası tüm sütun silinip, bu verilerin aktarılmasını bir buton yardımıyla a3 f3 den başlayacak şekilde değer olarak aktarılmasını istıyorum. örnek çalışmam da ekte mevcuttur.

yardımcı olabilir misiniz.

Şöyle deneyin.

Private Sub CommandButton1_Click()
Sheets("VELİ").Cells = Empty
a = Sheets("ALİ").Cells(65000, 3).End(xlUp).Row + 1
Sheets("VELİ").Range("a3:f" & a).Value = Sheets("ALİ").Range("c2:h" & a).Value
Sheets("VELİ").Select
End Sub

 

[sensizsoldum]

Merhaba, Günaydın, Hayırlı sabahlar dilerim herkese...
Sayın Husgvarna, ilginiz için tşk ederim. tam istediğim gibi oldu.Bu kodlar işlemin yaptıktan sonra veli sayfasına otomatik geçiş yapılmasını ekleyebilirmiyiz...
Teşekkür ederim İyi günler dilerim herkese...

 

[Husgvarna]

Merhaba, Günaydın, Hayırlı sabahlar dilerim herkese...
Sayın Husgvarna, ilginiz için tşk ederim. tam istediğim gibi oldu.Bu kodlar işlemin yaptıktan sonra veli sayfasına otomatik geçiş yapılmasını ekleyebilirmiyiz...
Teşekkür ederim İyi günler dilerim herkese...

Yukarıdaki kodlara eklendi.

 

[sensizsoldum]

Teşekkür ederim elinize sağlık.

 

[sensizsoldum]

Merhaba sayın husgvarna,
Kontrellerim sonucunda, veri aktarma sırasında aktarılan sayfanın ilk iki satırı silinsin istemiyordum, sanırsam satır değil de hücre içeriğini siiyor. her aktarma yapılırken,
aktarılan sayfanın yani veli sayfasına aktarılırken... a3 ve f3 ten sonra tüm satırlar silinsin aktarılan veri gelsin işlem bu şekilde olması gerekliydı. bu şekilde uyarlaya bilmemiz mümkünmüdür.

 

[Mustafa MUTLU]

kodun sonuna
End Sub dan
önce

Sheets("ALİ").Range("A3:Z65536").ClearContents

Bunu ekleyin Kırmızı bölüm silinecek bölümdür..

 

[sensizsoldum]

Merhaba Mustafa bey, ilginize tşk ederim ama buda olmadı

 

[Mustafa MUTLU]

Merhaba Mustafa bey, ilginize tşk ederim ama buda olmadı

Neden olmadı
Kodlarınız normal çalışıyorsa

Silmek istediğiniz sayfa adı ve bölümü söyleyin uyarlayım..

Yada kodu komple verin..

 

[sensizsoldum]

Merhaba, Mustafa bey,
AS400 sayfasından belirttiğim C2 ve H2 den başlayan sütunlar, STOK sayfasına aktarılsın. Bu aktarma dan önce, STOK sayfasından A3 ve F3 den başlayan sütunlar önce silinsin, daha sonra bu istenilen veriler, stok sayfasına DEĞER olarak aktarılsın istiyorum.
AS400 sayfasından ilk satır ve Stok sayfasından ilk iki satırda herhangi bi değişim olmamalıdır.
umarım açıklayıcı olmuşdumdur.

ilgi ve alakalarına Teşekkür ederim.
Örnek deneme çalışmam ektedir.

 

[Mustafa MUTLU]

Merhaba, Mustafa bey,
AS400 sayfasından belirttiğim C2 ve H2 den başlayan sütunlar, STOK sayfasına aktarılsın. Bu aktarma dan önce, STOK sayfasından A3 ve F3 den başlayan sütunlar önce silinsin, daha sonra bu istenilen veriler, stok sayfasına DEĞER olarak aktarılsın istiyorum.
AS400 sayfasından ilk satır ve Stok sayfasından ilk iki satırda herhangi bi değişim olmamalıdır.
umarım açıklayıcı olmuşdumdur.

ilgi ve alakalarına Teşekkür ederim.
Örnek deneme çalışmam ektedir.

Stok Sayfana Bir düğme ekle bu makroyu ata

Sub Aktar()
Sheets("STOK").Range("A3:F65536").ClearContents
Sheets("AS400").Select
Range("C2:H65000").Select
Selection.Copy
Sheets("STOK").Select
Range("A3").Select
ActiveSheet.Paste
Range("A3:F65000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[sensizsoldum]

Merhaba Mustafa bey,
Sanırsam oldu ama minik bir sorun var, aşağıda verdiğim kod satırmı yoksa hücrenin içeriğini mi siliyor. bana satır silmesi lazım eğer bunun tam tersi ise

Sheets("STOK").Range("A3:F65536").ClearContents

 

[Mustafa MUTLU]

Merhaba Mustafa bey,
Sanırsam oldu ama minik bir sorun var, aşağıda verdiğim kod satırmı yoksa hücrenin içeriğini mi siliyor. bana satır silmesi lazım eğer bunun tam tersi ise

Sheets("STOK").Range("A3:F65536").ClearContents

A3 den F65000 e kadar tüm hücrelerin içeriğini siliyor..

Satırı silmesini istiyorsan
Bu Kodu Kullan

Sub Aktar()
Rows("3:65536").Select
Selection.Delete Shift:=xlUp
Sheets("AS400").Select
Range("C2:H65000").Select
Selection.Copy
Sheets("STOK").Select
Range("A3").Select
ActiveSheet.Paste
Range("A3:F65000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[sensizsoldum]

bu kodu hücre içeriği değilde, satır silme olarak yazabilir misiniz

 

[Mustafa MUTLU]

bu kodu hücre içeriği değilde, satır silme olarak yazabilir misiniz

Satır Siler.

Sub Aktar()
Rows("3:65536").Select
Selection.Delete Shift:=xlUp
Sheets("AS400").Select
Range("C2:H65000").Select
Selection.Copy
Sheets("STOK").Select
Range("A3").Select
ActiveSheet.Paste
Range("A3:F65000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select
End Sub

 

[sensizsoldum]

Merhaba Mustafa bey,
Günaydın Hayırlı sabahlar... ilginiz için teşekkür ederim çok güzel oldu. elinize sağlık.