Új hozzászólás Aktív témák

• #34062 poffsoft veterán lizakattila #34061

  Új Válasz 2017-02-04 23:11:39 #34062

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz lizakattila #34061 üzenetére

  parancsolj:

  Sub Rendez()

Dim usor As Long
Dim lusor As Long
Dim ms As Long 'max sor'
Dim sm As Long 'aktualis sor'
Dim i As Variant
Dim Ls() As String
Dim Ts As String
Dim valasz As String

Ls() = Split("B.C.D.E", ".") ' a neveket tartalmazó oszlopok'
Ts = "H" ' a szűrt lista oszlopa'
sm = 1
ms = Rows.Count

usor = Range(Ts & ms).End(xlUp).Row
If usor > 1 Then
valasz = MsgBox("Nem üres a cél """ & Ts & """ oszlop." & vbCrLf & "Folytatod?", vbYesNo, "Figyelem!")
If valasz = vbYes Then Range(Ts & "1:" & Ts & usor).Clear Else Exit Sub
End If

For Each i In Ls
usor = Range(i & ms).End(xlUp).Row
If usor > 1 Then
Range(i & "2:" & i & usor).Select
Application.CutCopyMode = False
Selection.Copy

Range("H" & sm).Select
ActiveSheet.Paste
sm = sm + usor - 1
End If
Next i

'duplikációk eltávolítása, abc sorrend'

usor = Range(Ts & ms).End(xlUp).Row
Application.DisplayAlerts = False
Range(Ts & "1:" & Ts & usor).RemoveDuplicates Columns:=1, Header:=xlNo
Application.DisplayAlerts = True
With ActiveSheet.Sort
.SetRange Range(Ts & "1:" & Ts & usor)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(Ts & "1").Select

End Sub

• #34060 Fferi50 Topikgazda lizakattila #34059

  Új Válasz 2017-02-04 14:10:26 #34060

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz lizakattila #34059 üzenetére

  Szia!

  A H oszlopba átmásolod a neveket minden oszlopból egymás alá. Ezután kijelölöd az oszlopot, adatok - ismétlődések eltávolítása.

  Üdv.

• #32315 Delila_1 veterán lizakattila #32314

  Új Válasz 2016-08-12 16:37:03 #32315

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #32314 üzenetére

  Nagyszerű!

• #32313 Delila_1 veterán lizakattila #32310

  Új Válasz 2016-08-12 16:21:21 #32313

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #32310 üzenetére

  A beolvasás is lehet egyszerűbb, a reg1 ComboBox Change eseményéhez rendelve.

  Private Sub reg1_Change()
Dim sor, oszlop As Integer

With Sheets("Sheet2")
sor = Application.Match(reg1, .Columns(1), 0)
For oszlop = 2 To 11
Controls("reg" & oszlop) = .Cells(sor, oszlop)
Next
End With
End Sub

  A gomb esetében marad az az 1 sor, amit írtam (+ elé a sor kikeresése a MATCH függvénnyel). Esetleg még a végére a form bezárása: Unload Me

• #32311 Delila_1 veterán lizakattila #32310

  Új Válasz 2016-08-12 15:59:15 #32311

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #32310 üzenetére

  Akkor a feltöltés Ok, csak a levonás kell.

  Sheets("Sheet2").Cells(sor, 5) = Sheets("Sheet2").Cells(sor, 5) - reg5* 1

  Már ha a reg5 valóban az E oszlop megfelelője.

  Azért a feltöltésnél alkalmazhatnád, amit a sor kikereséséről írtam előbb. Ugyanannak a sornak az n-edik tagját viszed a textboxokba, ezért elég lenne 1 keresés.

• #32308 Delila_1 veterán lizakattila #32306

  Új Válasz 2016-08-12 15:41:04 #32308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #32306 üzenetére

  Figyelmesebben elolvastam a kérdést.

  Ha jól értem, azt a sort keresed, amelyikben az On-Hand kivételével minden adat megegyezik a most bevittekkel, és a jelenlegi On-Hand értéket akarod levonni a megtalált sor E oszlopának az értékéből. Így gondolod?

• #32307 Delila_1 veterán lizakattila #32306

  Új Válasz 2016-08-12 15:33:10 #32307

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #32306 üzenetére

  Az Item-nek már eleve a textbox helyett comboboxot érdemes tenni, ahol a RowSource tulajdonságba beírod a tartományt, ahonnan az értékeket veszi, pl. Sheet2!A1:A200.

  Elég egyszer kikeresni a sort, aminek az értékeihez hozzá akarod adni a UserFormon megadott adatokat.

  Private Sub cmdClose_Click()
Dim sor

'Ellenőrzés
If reg1 = "" Or reg2 = "" Or reg3 = "" Or reg4 = "" Then
MsgBox "Hiányos kitöltés", vbExclamation
Exit Sub
End If

With Sheets("Sheet2")
sor = Application.Match(reg1, .Range("A:A"), 0)
.Cells(sor, 2) = .Cells(sor, 2) + reg2 * 1
.Cells(sor, 3) = .Cells(sor, 3) + reg3 * 1
.Cells(sor, 4) = .Cells(sor, 4) + reg4 * 1
End With
End Sub

  A szorzás azért kell, hogy a textboxban szereplő szöveget (szöveg, azért text) számmá alakítsuk.

• #31275 Delila_1 veterán lizakattila #31273

  Új Válasz 2016-04-14 14:21:50 #31275

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #31273 üzenetére

  Írd be egy oszlopba az európai országokat. A feltételes formázásnál FKERES, vagy DARABTELI függvénnyel hivatkozz erre az oszlopra. =darabteli(országnevek_tartománya;A1)>0

• #29965 bsh addikt lizakattila #29963

  Új Válasz 2015-12-23 12:44:07 #29965

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsh

  addikt

  válasz lizakattila #29963 üzenetére

  ilyesmi? biztos van egyszerűbb is.
  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  For Each Item In Target.Cells
  If Item.Column = 15 Then
  If Item = "" Then
  Cells(Item.Row, 1) = ""
  Else
  Cells(Item.Row, 1) = Now()
  End If
  End If
  Next
  Application.EnableEvents = True
  End Sub

• #29964 Delila_1 veterán lizakattila #29963

  Új Válasz 2015-12-23 12:16:34 #29964

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #29963 üzenetére

  Range(Target.Address).Offset(0, -14) = Now()

• #29715 Delila_1 veterán lizakattila #29714

  Új Válasz 2015-12-04 13:31:30 #29715

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #29714 üzenetére

  Az

  If Target.Column <> 2 Then Exit Sub

  sorban a 2 helyett írj 15-öt, és a

  Target.Offset(0, -1).Value = Now()

  sorban a -1 helyett -14-et.

• #24797 Delila_1 veterán lizakattila #24796

  Új Válasz 2014-12-30 12:20:43 #24797

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #24796 üzenetére

  Nincs mit, elvégre földim vagy.

• #24794 Delila_1 veterán lizakattila #24793

  Új Válasz 2014-12-30 10:47:12 #24794

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #24793 üzenetére

  Az A oszlop feltételes formázásának a képlete

  =A1/B1<>INT(A1/B1)

• #13996 Delila_1 veterán lizakattila #13995

  Új Válasz 2012-06-09 16:48:54 #13996

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lizakattila #13995 üzenetére

  Készíts kimutatást. A SOR-hoz tedd az oszlopod címét, és ugyanazt az ADAT-hoz is (2003-as verzió), ahol a darabszámot kéred, és máris kész.

  2007-es verzióban a címet a SORCÍMKÉK-hez és az ÉRTÉKEK-hez tedd.

• #13994 Sweet Lou 6 addikt lizakattila #13993

  Új Válasz 2012-06-09 10:55:37 #13994

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Sweet Lou 6

  addikt

  válasz lizakattila #13993 üzenetére

  DARABTELI

  pl. =DARABTELI(A1:A500;"7455")

  A1:A500 az a tartomány ahol keresed
  7455 az amit keresel

Új hozzászólás Aktív témák