Makro Atama

[k0desteyim]

Öncelikle merhaba arkadaşlar forumda ve internette araştırdım fakat bulamadım. Kısaca yapmak istediğimi anlatayım yardımcı olursanız sevinirim. Öncelikle excel de sayfa 2, sayfa 3, sayfa 4 v.s. ilerleyen sayfaların sütunlarına değerler gireceğim. Örneğin;
sayfa2 a1 150
sayfa2 a2 200
sayfa3 a3 300

bu değerleri aynı şekilde liste olarak sayfa 1 de görmek istiyorum. makro atıyorum bu değerlere fakat ilk sayfadaki makroya tıklayınca direkt olarak 2. sayfa açılıyor. oysa ki ben butona tıkladığımda o değerlerin ilk sayfada çıkmasını istiyorum.

 

[asi_kral]

Merhaba
Dosya üzerinde açıklama yapabilir misiniz_?

 

[k0desteyim]

Dosya ektedir.
İlk sayfadaki butonlara tıkladığımda örneğin 10.2 butonuna tıkladığımda 2. sayfadaki tablo 10.2 nin ilk sayfada karşıma gelmesini istiyorum. Makro atadığımda tıklayınca butona direk 2. sayfa açılıyor. oysa ki ben ikinci sayfadaki verilerin ilk sayfada önüme gelmesini istiyorum yardımcı olursanız sevinirim.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub tab10_1()
Dim S1 As Worksheet, SAT As Long
Set S1 = Sheets("Tablolar")
SAT = S1.Range("B" & Rows.Count).End(xlUp).Row
S1.Range("B2:C" & SAT).Copy Destination:=Range("E2")
End Sub
Sub tab10_2()
Dim S1 As Worksheet, SAT As Long
Set S1 = Sheets("Tablolar")
SAT = S1.Range("E" & Rows.Count).End(xlUp).Row
S1.Range("E2:F" & SAT).Copy Destination:=Range("E2")
End Sub
Sub tab10_3()
Dim S1 As Worksheet, SAT As Long
Set S1 = Sheets("Tablolar")
SAT = S1.Range("H" & Rows.Count).End(xlUp).Row
S1.Range("H2:I" & SAT).Copy Destination:=Range("E2")
End Sub

Sonra düğmelere atayın makroları tek tek

 

[k0desteyim]

Eyvallah sağolasın istediğim oldu ekstra olarak şunu sorayım. 1. sayfada görüntülenen tablonun hangi satır ve sütunda olacağını nasıl ayarlayabilirim. yani sayfanın istediğim yerinde görünmesini.

 

[asi_kral]

Merhaba

Destination=range("E2")

Yazan yeri kendinize göre uyarlayınız.

 

[k0desteyim]

Teşekkürler hocam sağolun.

 

[asi_kral]

Teşekkürler hocam sağolun.

Kolay Gelsin.

 

[k0desteyim]

Option Explicit
Sub tab10_1()
Dim S1 As Worksheet, SAT As Long
Set S1 = Sheets("Tablolar")
SAT = S1.Range("B" & Rows.Count).End(xlUp).Row
S1.Range("B2:C" & SAT).Copy Destination:=Range("E2")
End Sub


bu kodun satır satır ne anlatmak istediğini yazabilir misiniz ? Örneğin sıfırdan farklı bi excel dosyasında bunu uygulamak istiyorum bazı yerleri değiştirdim fakat subscript out of range şeklinde bir hata alıyorum sebebi nedir nerede hata yapıyor olabilirim ?

 

[Korhan Ayhan]

Merhaba,

Kod kısaca "Tablolar" isimli sayfanızın "B2:C & Dolu son satır" arasındaki verileri aktif sayfanın E2 hücresine yapıştırır.

 

[asi_kral]

Merhaba,

Kod kısaca "Tablolar" isimli sayfanızın "B2:C & Dolu son satır" arasındaki verileri aktif sayfanın E2 hücresine yapıştırır.

Teşekkür Ederim.
Sayın Korhan Ayhan.

 

[k0desteyim]

Ben şimdi bunu yapıyorum fakat çağırdığım verilerin bulunduğu hücreler renkli birleştirilmiş veya hücre boyutları değiştirilmiş. Veriyi makroyla çağrdığımda birebir aynısı gelmiyor hücre boylarında oynama falan oluyor bunu nasıl ayarlayabilirim ?

 

[asi_kral]

Ben şimdi bunu yapıyorum fakat çağırdığım verilerin bulunduğu hücreler renkli birleştirilmiş veya hücre boyutları değiştirilmiş. Veriyi makroyla çağrdığımda birebir aynısı gelmiyor hücre boylarında oynama falan oluyor bunu nasıl ayarlayabilirim ?

Merhaba
O dosyanızı ekleyin ona göre yardımcı olmaya çalışalım.

 

[k0desteyim]

Dosya ektedir hocam.

 

[k0desteyim]

yüklememiş bir önceki mesaja k.bakmayın ek burada.

 

[asi_kral]

yüklememiş bir önceki mesaja k.bakmayın ek burada.

Merhaba
Bu kod deneyin lütfen.

Option Explicit
Sub tab5_1()
Dim S1 As Worksheet, SAT As Long
Application.ScreenUpdating = False
Range("M:O").Delete
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
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

 

[k0desteyim]

Hocam kod güzel fakat yine benzer sorun var. Örneğin normalde tabloda kompozit numune 2 saatlik ve 24 saatlik yazıyor altındaki satırda hemen fiyatlar başlıyor. fakat makroyla çağırınca ekstradan arada bir satır daha çıkıyor ve 24 saatlik yazıyor sadece.

 

[asi_kral]

Merhaba
Satır ölçüleri birbirlerinle aynı oluyor kodda o sayfadaki sütunda bir problem vardır onu kontrol edin. Yada dosyanızı ekleyin bakalım.

 

[k0desteyim]

ekte dosya var zaten hocam renk diye o dosya üzerinden gidiyorum zaten.

 

[asi_kral]

ekte dosya var zaten hocam renk diye o dosya üzerinden gidiyorum zaten.

Bahsettiğiniz dosyada sadece 1 tane kod var ve oda bu kodu eklediğinizde istediğiniz şekilde çalışıyor.