satır ekleme

[iyilmaz57]

iyi günler arkadaşlar,
ekte örnegi bulunan tabloda bir butonla satır eklemek istiyorum.ilk satırda sorun olmuyor fakat diğer satırlarda tablom bozuluyor.Bu konuda yardımcı olabilirmisiniz.
Saygılarımla,
İhsan

 

[iyilmaz57]

arkadaşlar bu konuda yardımcı olacak kimse yokmu hafta sonunda bunu bitirmek istiyorum.Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla,
İhsan

 

[Vedat Özer]

Selamlar,

Makrolardan nerdeyse hiç anlamam ama aşağıdaki kodu dosyanıza yapıştırın bi deneyin.

Sub PARÇAEKLE()
Application.ScreenUpdating = False
sonsat1 = [SERVİSFORMU!a4].End(4).Row + 1
Rows(sonsat1).Insert Shift:=xlDown
Range("A" & sonsat1 & ":B" & sonsat1).FillDown
Range("C" & sonsat1 & ":J" & sonsat1).FillDown
Range("K" & sonsat1 & ":AB" & sonsat1).FillDown
Range("AC" & sonsat1 & ":AD" & sonsat1).FillDown
Range("AE" & sonsat1 & ":AI" & sonsat1).FillDown
Range("AJ" & sonsat1 & ":AN" & sonsat1).FillDown
End Sub

 

[Levent Menteşoğlu]

sonsat1 = [SERVİSFORMU!a[B][COLOR=red]4[/COLOR][/B]].End(3).Row + 1

Kod içindeki yukarıdaki satırı aşağıdaki ile değiştirin.

sonsat1 = [SERVİSFORMU!a[B][COLOR=red]65536[/COLOR][/B]].End(3).Row + 1

 

[Ergün Güler]

sonsat1 = [SERVİSFORMU!a[B][COLOR=red]4[/COLOR][/B]].End(3).Row + 1

Kod içindeki yukarıdaki satırı aşağıdaki ile değiştirin.

sonsat1 = [SERVİSFORMU!a[B][COLOR=red]65536[/COLOR][/B]].End(3).Row + 1

Selam,
"End(3).Row " daki 3 ne anlama geliyor?
Saygılar.

 

[uzmanamele]

Selam,
"End(3).Row " daki 3 ne anlama geliyor?
Saygılar.

merhaba

buraya bakınız.
end komutu

 

[iyilmaz57]

yardımlarınız için teşekkür ederim Levent bey,
bir sorumdaha olacak aynı sayfada ayrı bir tablodada aynı işlemi yapmak istiyorum onunda satır ekleme butonu olacak nasıl yapabilirim.örnek ektedir.

Saygılarımla,
İhsan

 

[Ergün Güler]

merhaba

buraya bakınız.
end komutu

çok teşekkür ederim.
Çok sağolun.
İyi çalışmalar.

 

[iyilmaz57]

arkadaşlar bu konuda yardımcı olacak kimse yokmu 7 bölümde örneğimi ekledim

saygılarımla,
İhsan

 

[Levent Menteşoğlu]

Sn iyilmaz57

Dosyanıza gerekli kodları ilave ettim. Ayrıca ikinci tablonuzdaki sıra nosu veren formülüde yeniledim.

 

[iyilmaz57]

çok teşekkür ederim.Levent bey,

tablo sayım çogalsa bile bu koda göre gereken eklemleri yapabilirim sanırım.Satır silmeyide önceki yaptıgınız teklif programına göre çözerim galiba.Yardınlarınız için çok sağolun.

Saygılarımla,
İhsan

 

[iyilmaz57]

tüm arkadaşlara iyi haftalar,

ekte örneği bulunanan dosyamda sayfa 1 de 5 adet tablo bulunmaktadır bu tablolara ihtiyaca göre satır eklemek istiyorum ve silmek istiyorum en üsteki tabloya ekleme yaptıgımda sorun olmuyor fakat diğer tablolara ekleme yaptıgımda eklenecek satır sırası üst tabloda ekleme yapıldıgı için bozuluyor.Arkadaşlar bu kitapta değişken makromu kullanmak gerekiyor.
yardımcı olabilirmisiniz.

Saygılarımla,
İhsan

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[iyilmaz57]

Levent bey,

Tam istediğim gibi olmuş emekleriniz için çok teşekkür ederim.

Saygılarımla,
İhsan

 

[iyilmaz57]

iyi akşamlar Levent bey,

tablonun son şekli ektedir.Satır silme işlemi yaptığımda sayfa 1'de(atölye formu) doğru olarak eklenmiş satırı siliyor,sayfa 2'de(hesaplama) satır sayısı bir fazla kalıyor.

Saygılarımla,
ihsan

 

[Levent Menteşoğlu]

Dosyanıza gerekli ilaveleri yaptım.

 

[iyilmaz57]

çok teşekkür ederim Levent bey,

elleriniz dert görmesin,

saygılarımla,
İhsan

 

[iyilmaz57]

iyi akşamlar,

sayfa1(ATÖLYEFORMU)'nda bulunan satır ekleme butonuna tıkladığımda satır,sayfa1 ve Sayfa2(HESAPLAMA)'ya ekleniyor.Fakat hesaplama sayfasındaki sarı hücrelerdeki formüller bir alt satıra geçmiyor:bu konuda fikir verebilirmisiniz.

Saygılarımla,
İhsan

 

[Levent Menteşoğlu]

Aşağıdaki koddaki son satırdaki AP yerine AZ yazmanız yeterlidir.

Sub YAPILANLARAEKLE()
Application.ScreenUpdating = False
ilk = WorksheetFunction.Match("UNITE ÜZERİNDE YAPILAN ÇALIŞMALARIN RAPORU", [a:a], 0)
sat = Range("A" & ilk).End(xlDown).Row + 1
Rows(sat).Insert Shift:=xlDown
Range("A" & sat & ":AP" & sat).FillDown
Sheets("HESAPLAMA").Rows(sat).Insert Shift:=xlDown
Sheets("HESAPLAMA").Range("A" & sat & ":A[B][COLOR=red]Z[/COLOR][/B]" & sat).FillDown
End Sub

 

[iyilmaz57]

Levent bey,
çok teşekkür ediyorum,yine yardımıma yetiştiniz.

saygılarımla,