Makro Atama

[k0desteyim]

ekledim dosyayı en son haliyle. tablo 5.1 yazan sekmeye tıkladığınızda veriyi çekiyor fakat dediğim gibi kompozit numune 24 saatlik yazan satırın altına ekstra satır açmış ve 24 saatlik yazıyor. yani hücrelerde v.s. sapma var.

 

[asi_kral]

Ben dosyada bir problem göremedim.

 

[k0desteyim]

alttaki sayfalardan bir tablo 5.1 e bakın bir de makrolar sayfasına çektiğimiz tablo 5.1 e bakın farkı göreceksiniz. Resim ekledim ona bakarsanız farkı göreceksiniz.

 

[asi_kral]

Şimdi anladım bunu yaparsam sizin butonların gizlenme olasılığı mevcut gene isterseniz yapabilirim.

 

[k0desteyim]

bi yapabilir miyiz mümkünse sizi de uğraştırıyoruz ama : )
ekstra şu da eklenebilir mesela temizle butonu tıkladığımda ekranda çağırdığım verileri temizlesin ben bunu kısmen yaptım fakat tablo çizgileri ve renklendirmeyi silmiyor onlar kalıyor tamamen silmesi gerekiyor.

 

[asi_kral]

bi yapabilir miyiz mümkünse sizi de uğraştırıyoruz ama : )
ekstra şu da eklenebilir mesela temizle butonu tıkladığımda ekranda çağırdığım verileri temizlesin ben bunu kısmen yaptım fakat tablo çizgileri ve renklendirmeyi silmiyor onlar kalıyor tamamen silmesi gerekiyor.

Bu kodu deneyin.

Option Explicit
Sub tab5_1()
Dim S1 As Worksheet, SAT As Long
Application.ScreenUpdating = False
Range("M:O").Delete
Cells.RowHeight = 15
Set S1 = Sheets("Tablo 5.1")
Range("M:M").ColumnWidth = S1.Range("B:B").ColumnWidth
Range("N:N").ColumnWidth = S1.Range("C:C").ColumnWidth
Range("O:O").ColumnWidth = S1.Range("D:D").ColumnWidth
Rows("5:5").RowHeight = S1.Rows("7:7").RowHeight
Rows("6:6").RowHeight = S1.Rows("8:8").RowHeight
Rows("7:7").RowHeight = S1.Rows("9:9").RowHeight
Rows("8:8").RowHeight = S1.Rows("10:10").RowHeight
Rows("9:9").RowHeight = S1.Rows("11:11").RowHeight
Rows("10:10").RowHeight = S1.Rows("12:12").RowHeight
Rows("11:11").RowHeight = S1.Rows("13:13").RowHeight
Rows("12:12").RowHeight = S1.Rows("14:14").RowHeight
SAT = S1.Range("B" & Rows.Count).End(xlUp).Row
S1.Range("B4:E" & SAT).Copy Destination:=Range("M2")
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

Silme işi için

Sub sil()
Range("M:O").Delete
End Sub

Bu kod işinizi görür.

 

[k0desteyim]

aynı hata devam ediyor : (

 

[asi_kral]

aynı hata devam ediyor : (

Kodu güncelledim.

 

[k0desteyim]

hücreleri kaydırarak sorun giderilmiş fakat kaymalar olmuş bunu engellemek için o zaman en son hali üzerinden tekrardan butonları yerleştirmeliyim ki kaymalar olmasın değil mi ?

 

[asi_kral]

hücreleri kaydırarak sorun giderilmiş fakat kaymalar olmuş bunu engellemek için o zaman en son hali üzerinden tekrardan butonları yerleştirmeliyim ki kaymalar olmasın değil mi ?

Evet maalesef öyle olmalı

 

[k0desteyim]

Tamam hocam sağolun yardımlarınız için emin olun bir çok karışıklığı gidermek için iyi oldu bu çalışma. Teşekkürler.

 

[k0desteyim]

peki hocam bu bendeki örnek dosyadaki tabloları açılır liste şeklinde yapabilir miyiz bunun için örneğin sadece tablo 5.1 in ana sayfada istediğimiz satır ve sütuna çağırılması için örnek kod yazabilir misiniz ?

 

[asi_kral]

Tamam hocam sağolun yardımlarınız için emin olun bir çok karışıklığı gidermek için iyi oldu bu çalışma. Teşekkürler.

Kolay Gelsin.

 

[k0desteyim]

Ya satır yüksekliklerini de ayarlıyorum yine sıkıntı oluyor çünkü her seferinde çağırdığım tablo boyutu farklı bunu nasıl engelleriz. veya yapmak istediğimi anlamışsınızdır az çok bunu en iyi ne şekilde yapabilirim.?

 

[asi_kral]

Ya satır yüksekliklerini de ayarlıyorum yine sıkıntı oluyor çünkü her seferinde çağırdığım tablo boyutu farklı bunu nasıl engelleriz. veya yapmak istediğimi anlamışsınızdır az çok bunu en iyi ne şekilde yapabilirim.?

Ayrı bir sayfaya kopyalarsanız problem olmaz