• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan konas06
  • Başlangıç tarihi Başlangıç tarihi
Katılım
27 Kasım 2007
Mesajlar
664
Excel Vers. ve Dili
ofis 2016 Türkçe
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

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.
 
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
 
Teşekkür ederim.
 
Geri
Üst