Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Kapalı Konu
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-08-2017, 11:30   #1
HimuraKenshin
 
Giriş: 26/08/2017
Şehir: ANKARA
Mesaj: 8
Excel Vers. ve Dili:
2010 fonksiyonlar
Post Excel makro döngüye sokma

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...2017..rar.html
HimuraKenshin Çevrimdışı  
Eski 28-08-2017, 12:16   #2
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,815
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Ş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.
cems Çevrimdışı  
Eski 28-08-2017, 12:28   #3
HimuraKenshin
 
Giriş: 26/08/2017
Şehir: ANKARA
Mesaj: 8
Excel Vers. ve Dili:
2010 fonksiyonlar
Varsayılan

peki bunu nasıl yaptıra bilirim hocam. yardım olursan çok sevinirim.
HimuraKenshin Çevrimdışı  
Eski 28-08-2017, 12:28   #4
HimuraKenshin
 
Giriş: 26/08/2017
Şehir: ANKARA
Mesaj: 8
Excel Vers. ve Dili:
2010 fonksiyonlar
Varsayılan

yapmam gereken ufak bir değişikli mi yoksa. baştan başlamak mı gerek ?
HimuraKenshin Çevrimdışı  
Eski 28-08-2017, 12:42   #5
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,815
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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/MA...Kopya.rar.html




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

http://www.excel.web.tr/f48/tedarikc...tml#post907502
Eklenmiş Dosyalar
Dosya Türü: xlsm MALİYET ANALİZİ 25.08.2017.01 - Kopya.xlsm (113.6 KB, 2 Görüntülenme)

Bu mesaj en son " 28-08-2017 " tarihinde saat 12:48 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı  
Eski 28-08-2017, 12:47   #6
HimuraKenshin
 
Giriş: 26/08/2017
Şehir: ANKARA
Mesaj: 8
Excel Vers. ve Dili:
2010 fonksiyonlar
Varsayılan

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.
HimuraKenshin Çevrimdışı  
Eski 28-08-2017, 12:50   #7
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,815
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:
HimuraKenshin tarafından gönderildi Mesajı Görüntüle
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 .
cems Çevrimdışı  
Eski 28-08-2017, 12:52   #8
HimuraKenshin
 
Giriş: 26/08/2017
Şehir: ANKARA
Mesaj: 8
Excel Vers. ve Dili:
2010 fonksiyonlar
Varsayılan

teşekkürler iyi çalışmalar.
HimuraKenshin Çevrimdışı  
Kapalı Konu


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:52


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden