Sayfalara satır ekleme

[POLARIS]

Arkadaşlar merhaba,
Ekli tabloda Sayfa 1 de satır eklediğim zaman diğer sayfalarda'da otomatik satır eklenmesini nasıl sağlarım?İlgileriniz için teşekkürler.

 

[uzmanamele]

merhaba
aşağıdaki linkde syn Korhan Ayhan'ın kodları işinizi görür mü?

http://www.excel.web.tr/showthread.php?t=47333

 

[POLARIS]

Sayın uzmanamele,
İlgilerinize teşekkürler.
araya eklenecek satır sayısı ve yeri belli değil.Yeni gelecek ürünün koduna göre değişik yerde olabilecek.Bazen tek satır bazen farklı yerlerde 5 satır.
Forumda kaç gündür arıyorum ama soruma cevap bulamadım.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub SATIREKLE()
Dim S2, S3 As Worksheet
Dim DEG As String
Set S2 = Sheets("Sayfa2")
Set S3 = Sheets("Sayfa3")
DEG = InputBox("Satır aralığını seçiniz")
Range(DEG).EntireRow.Insert Shift:=xlDown
S2.Range(DEG).EntireRow.Insert Shift:=xlDown
S3.Range(DEG).EntireRow.Insert Shift:=xlDown
End Sub

 

[POLARIS]

Sayın hocam,
İlgilerinize çok teşekkür.
Sizin eklediğiniz satır tam istediğim gibi olmuş.
Ancak ben 20.satıra ekle yaptım sizin sonucu vermedi.
Acaba neden?

 

[limanC34]

Sayım N.Ziya Hiçdurmaz
Diğer sayfalara eklemiyor hocam.

 

[POLARIS]

Sayın hocam oldu.
İlginize ve emeğinize çok teşekkür ederim.
sayfa 1 deki bu işlemi diğer kitaplardaki/sayfalara'da uygulamam için ne yapmam gerekiyor?

 

[zipir123]

Sayfa 1 veya sayfa 2 isminin üzerinde sağ klik yapıp tüm sayfaları seçin.
Tüm sayfalar seçildikten sonra bulunduğunuz sayfada ne kadar satır eklemek istiyorsanız o kadar satırı seçin sağ klik satır ekle deyin veya ctrl + tuşuna basın. Tüm sayfalara seçmiş olduğunuz kadar satır aynı anda eklenmiş olur.

 

[limanC34]

Sayın POLARIS
Acemiyim ama aklımca birşeyler yapmaya çalıştım.

 

[POLARIS]

Sayın zipir123,
Önerin için teşekkürler.Onu demek istemedim.
Deneme/sayfa1 Ana sayfa .Ve bu sayfadaki bilgileri daha sonra başka kitapların sayfaları'da alacak.Satır ekleme o kitaplar ve sayfalarına'da uygulanması gerekecek.
Nasıl yapıcam onu soruyorum. İyi akşamlar dilerim.

 

[POLARIS]

Sayın limanC34,
Birde hangi satırı ekleyip sileceğimi butonda belirtebilirseniz tam süper olacak.
İlgilerinize çok teşekkür ederim.İyi akşamlar dilerim.

 

[zipir123]

Sn. polaris

Sayın zipir123,
Önerin için teşekkürler.Onu demek istemedim.
Deneme/sayfa1 Ana sayfa .Ve bu sayfadaki bilgileri daha sonra başka kitapların sayfaları'da alacak.Satır ekleme o kitaplar ve sayfalarına'da uygulanması gerekecek.
Nasıl yapıcam onu soruyorum. İyi akşamlar dilerim.

İlk mesajınızda başka kitaplar da satır ekleme işlemi yapacağınızdan bahsetmemişsiniz.
benim yazmış olduğum öneri bir kitap içinde açık olan Sayfa1, Sayfa2 ve Sayfa 3"e aynı anda satır ekleyebilmek, silebilmek ve hatta aynı hücrelere aynı anda yazabilmek içindi.

 

[POLARIS]

Sayın zipir123,
İlgilerinize tekrar teşekkür ederim.
Konuları teker teker işlemek için bahsetmemiştim.
İyi akşamlar dilerim.