Satırdaki bilgileri form haline dönüştürmek

konas06

Altın Üye
Katılım
27 Kasım 2007
Mesajlar
661
Excel Vers. ve Dili
ofis 2016 Türkçe
Altın Üyelik Bitiş Tarihi
01-07-2025
Selam
Bu sefer sorum şu şekilde olacak.
Soldan sağa uzun bir excel tablosu düşünelim. Her defasında soldan sağa doğru bilgileri kontrol etmek zor oluyor. Bunun için satırın en başında bir makro yada benzer bir şeye tıkladığımızda bu satrıdaki bilgiler istediğimiz düzende gelmesini sağlayabilir miyiz?
Şimdiden ilgilenen tüm excelseverlere teşekkür ederim.
Saygılarımla.
Örnek dosya ektedir.
 

Ekli dosyalar

konas06

Altın Üye
Katılım
27 Kasım 2007
Mesajlar
661
Excel Vers. ve Dili
ofis 2016 Türkçe
Altın Üyelik Bitiş Tarihi
01-07-2025
Sayın cılgın86' lı ilginiz için teşekkür ederim.
Bu yapılan düşey ara işlemini sayfanın lat kısmında değil de ilgili satırın en başına geldiğimde bir bilgilendirme formu gibi görmek istiyorum.
Tekrar teşekkür ediyorum.
 

uzmanamele

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba

aşağıdaki kodları Sayfa1'in kod sayfasına yazın ve A sütununu çift tıklayarak deneyiniz.

Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If ActiveCell.Value = "" Then GoTo dip
plaka = Target.Offset(0, 0).Text
tarih = Target.Offset(0, 1).Text
yük = Target.Offset(0, 2).Text
fiyat = Target.Offset(0, 3).Text
adet = Target.Offset(0, 4).Text
çeşit = Target.Offset(0, 5).Text
geldiği = Target.Offset(0, 6).Text
firma = Target.Offset(0, 7).Text
MsgBox "plaka: " & plaka & " bilgileri" & Chr(10) _
& "tarih: " & tarih & Chr(10) & "yük: " & yük & Chr(10) & "fiyat: " & fiyat & Chr(10) _
& "adet: " & adet & Chr(10) & "çeşit: " & çeşit & Chr(10) & "geldiği: " & geldiği & Chr(10) & "firma: " & firma
dip:
End Sub
 

konas06

Altın Üye
Katılım
27 Kasım 2007
Mesajlar
661
Excel Vers. ve Dili
ofis 2016 Türkçe
Altın Üyelik Bitiş Tarihi
01-07-2025
Teşekkür ederim.
 
Üst