Excel makro döngüye sokma

[HimuraKenshin]

Merhabalar ekte olan dosyada kaydet butonuna basınca gerekli bilgileri müşteri bilgileri sayfasına kayıt ediyor olması gerektiği gibi. ancak yeni bir kayıt oluşturduğumda ise eski kaydın üzerine yazıyor tekrar. bunu her kayıt tuşuna basınca bir alt satıra kaydetmesini istiyorum ama bir türlü yapamadım. yardımlarınız bekliyorum teşekkürler.


Sub KAYDET()
'
' KAYDET Makro
'
' Klavye Kısayolu: Ctrl+Shift+K
'
Range("E8").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MALİYET ANALİZİ").Select
Application.CutCopyMode = False
Range("E9").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MALİYET ANALİZİ").Select
Application.CutCopyMode = False
Range("E10").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MALİYET ANALİZİ").Select
Application.CutCopyMode = False
Range("E12").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MALİYET ANALİZİ").Select
Application.CutCopyMode = False
Range("E13").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MALİYET ANALİZİ").Select
Application.CutCopyMode = False
Range("E14").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MALİYET ANALİZİ").Select
Application.CutCopyMode = False
Range("E15").Select
Selection.Copy
Sheets("MÜŞTERİ LİSTESİ").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Range("B3").Select
Sheets("MALİYET ANALİZİ").Select
End Sub






http://dosya.co/kxc17vcg1q2x/MALİYET_ANALİZİ_25.08.2017..rar.html

 

[cems]

Şuraya yapıştır diye hücre adresi gösterdiğiniz için başka yere , altalta yapıştırma bu kodlarla mümkün değil.

 

[HimuraKenshin]

peki bunu nasıl yaptıra bilirim hocam. yardım olursan çok sevinirim.

 

[HimuraKenshin]

yapmam gereken ufak bir değişikli mi yoksa. baştan başlamak mı gerek ?

 

[cems]

Sayfaya yeni bir tuş ekleyerek altına bu kodları ( zamanım az olduğundan örnek anlamında eksik ) yazdım, siz bunları ornekleyip deneyereek bütün verilerinize yeniden adres verin.
Bu arada gereksiz kalan bütün kodları modüllerden silin, problem çıkarır.

Sub Düğme4_Tıklat()

Dim say, say1 As Integer
say1 = Worksheets("MALİYET_ANALİZİ").Range("b65536").End(3).Row

say = Worksheets("MÜŞTERİ_LİSTESİ").Range("b65536").End(3).Row

Worksheets("MÜŞTERİ_LİSTESİ").Cells(say + 1, 2).Value = Worksheets("MALİYET_ANALİZİ").Range("e10").Value
Worksheets("MÜŞTERİ_LİSTESİ").Cells(say + 1, 3).Value = Worksheets("MALİYET_ANALİZİ").Range("e1").Value
Worksheets("MÜŞTERİ_LİSTESİ").Cells(say + 1, 4).Value = Worksheets("MALİYET_ANALİZİ").Range("e12").Value

MsgBox " Bilgi aktarıldı"

End Sub

Bu arada kurulumda eksikler var, mesela müşteri adı TAHA hiç bir yerde geçmiyor. Ayrıca sayfa adlarında boşluk yapmayın , arada "_" ile bir bağ yapın ki programların ilk kelimeyi görüp ikincisini görmediği anlar olabiliyor.Bunlara dikkat ederseniz eksiksiz hallolur.

http://s9.dosya.tc/server3/g3e4t0/MALIYET_ANALIZI_25.08.2017.01_-_Kopya.rar.html




Daha sonra belki şuradaki 2ci ya da 3cü programı da inceleyip kendinize uyarlamak istersiniz ..

http://www.excel.web.tr/f48/tedarikci-takip-t166329.html#post907502

 

[HimuraKenshin]

teşekkürler yardımınız için. müşteri bilgileri sabit değil her hangi bir şirkete fiyat verebilmek adına yapmaya çalıştım.

 

[cems]

teşekkürler yardımınız için. müşteri bilgileri sabit değil her hangi bir şirkete fiyat verebilmek adına yapmaya çalıştım.

Olsun , aynı fiyatı farklı firmalara verdiğinizin de kaydı tutulmalı sanıyorum . Firma ismi bu yüzden önemli olabilir. Kolay gelsin .

 

[HimuraKenshin]

teşekkürler iyi çalışmalar.