Tek Butonla İki Sayfaya Birden Kayıt Etme

[berkbaba]

Excel Versiyonu

Excel 2019

Excel Sürümü

32 Bit

Excel Dili

Türkçe

Userform formunda
bir buton ile ayrı anda iki sayfaya birden birinci sayfa 3. satırdan ikinci sayfa 2. satırdan itibaren alt alta, alfabetik ve b sütununa sıra numaralı kayıt kodu için bir örnek rica edebilir miyim?

 

Aynı Verileri Başka Sayfaya Aktarma

Mouse İmlecini Kum Saati Şekline Dönüştürme

[ExcelDepo]

Dosyanızı eklerseniz üzerinden destek olmak daha sağlıklı olacaktır.

 

[berkbaba]

Görüntülemek için giriş yapmanız gerekmektedir.
(67 satır)

 

[ExcelDepo]

Hocam buradan bir şey anlamam çok zor.
Diğer yöneticilerimiz bir şey çıkarır inşallah bu şekilde.

 

[Silinen Üye]

Aslında B sütunı için sıralanma olayı yaptırılmıştı
Alfabetik olayını diğer forumdaki dosyada eklemeyi unutmuşum.
O dosyayı affabetik yaptırıp buraya ekleyeyim.Konu çok karışıktı ben anlarım ancak bu dosyanın dilinden

 

[Silinen Üye]

Dosyaları bir deneyin.Birisi B sütununa sıra numarasını verme olayı diğer formda anlattığım gibi diğeri ise B dekison satıdan bir öncekinin 1 fazlası.

Alttaki koddaki .Range("B2").End(xlDown).Row B2 yerine C2 yazdım.
Alttaki koddaki .Range("B4").End(xlDown).Row B4 yerine C4 yazdım.

212 ve 222.ci satırlar dolu olduğu için kodlar uzadı.Oraları koda gömüp en sonda o satırlara ekletilebilirdi esasen.
Neyse dosyaları bir deneyin alfabetik sıralamada ekledim.
Kaydetme kodunun biride en altta.

Sub son_ArsivsayfaNo() With Sheets(sayfa_ARÞiV) If .Range("B3").Value = "" Then sonArsivsatirNo = 3 Else sonArsivsatirNo = .Range("B2").End(xlDown).Row End If End With End Sub Sub son_BordrosayfaNo() With Sheets(sayfa_Bordo) If .Range("B5").Value = "" Then sonBordrosatirNo = 5 Else sonBordrosatirNo = .Range("B4").End(xlDown).Row End If End With End Sub

Görüntülemek için giriş yapmanız gerekmektedir.
(89 satır)

 

[berkbaba]

Sayın Refaz
Ben size yeteri kadar soru sordum. Yeteri kadar zahmet verdim. Bir daha soru sormaya haya ettim. Yine geldi sizi buldu.
Hakkınızı helal edin. Bu platformda da bir kez daha size sonsuz teşekkür ederim.
Beni ihya ettiniz, Rabbimde sizi ihya etsin

 

[berkbaba]

.Sort.SortFields.Add2 Key:=.Range("C3:C" & sonArsivsatirNo) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
kısmı sarı renk ile hata veriyor. Hata Kodu
"runtime error 438"
object doesn t support this property or method

Büyük ihtimalle
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=.Range("C5:C" & sonBordrosatirNo) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
kısmında da hata verecek ama o kısma geçemediğim için bilmiyorum

 

[Silinen Üye]

Hata sadece 3.cü satırlar doluykenmi oluyor.

 

[berkbaba]

Hayır daha ilk kayıt yaparken

 

[Silinen Üye]

Birkaç kod daha değiştirdim.
Sanırım şimdi tam oldu.

Daha öncede yazmıştım 212 ve 222 satırlar diye onlar silinse bu kadar uğraşılmazdı
Ben zaman olunca oralarıda koda ekleyeyim olmazsa.
Ben dosyayı bildiğim için zor çıkıyorum işin içinden başkası bilmediği ,ç,n bu konuya dahil oldum
Çekinmenize gerek yok benden yana her zaman anladığım kadarıyla yardım ederim.

 

[berkbaba]

üstad sana çok zahmet verdim.
her kodunu kendi arşivime aldım. Tek kafamın almadığı

Sub sirala_SiraNoBordro()
Dim son As Long, arr, i As Long
With Sheets(sayfa_Bordo)
son = .Range("C:C").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If son < 5 Then son = 5
ReDim arr(1 To son, 1 To 1)
For i = 5 To son
arr(i - 4, 1) = i - 4
Next
.Range("B3").Resize(son, 1).Value = arr
End With
Erase arr
End Sub

Bu kodu başka bir dosyamda kullandım. Hoşuma da gitti. Ancak bir türlü ilk satırı tutturamadım.
Bunun gibi aynı işlemi gören bir kod paylaşabilir misin?

 

[Silinen Üye]

.Range("B3").Resize(son, 1).Value = arr

Yukarıdaki 3 yerine 5 gelecekti.Son dosyada değiştirmiştim aslında.
Alternatifte var fakat bu hızlı ideal.

 

[Silinen Üye]

Alttaki koduda sabit tanımlayıp açıklamalarını ekledim.
Arşiv sayfası içinde aynı mantık.Örnek orda 5 yerine 3 olacak.Klasik yöntemleride eklerim.

Görüntülemek için giriş yapmanız gerekmektedir.
(18 satır)

 

[Silinen Üye]

Klasik yöntem1
Alttaki Const ilkBos As Integer = 5 yeri silip ilkBos yerlerinede 5 yazabilirsiniz.

Görüntülemek için giriş yapmanız gerekmektedir.
(17 satır)

 

[Feyzullah]

Diğer klasikleri ekleyeyim.

Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

Görüntülemek için giriş yapmanız gerekmektedir.
(17 satır)

 

[berkbaba]

Ben istedim bir göz, siz verdiniz bin göz

 

[valentino06]

Güzel Cevap

 

[berkbaba]

Sayın valentino06
Refaz68 dosyada tamamen emeği olan kişi. Ve hala da bana sabır gösteriyor. Sağ olsun. Var olsun